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Ce livre vous propose 56 programmes en 
BASIC MSX dans de nombreux domaines 
d'application personnels et professionnels. 

Finances personnelles : 

Etat prévisionnel d'un compte de 

dépôt. 

Taux d'intérêt d'un investissement. 

Versements nécessaires à la 

constitution d'un capital. 

Gestion : 

Amortissement linéaire. 

Amortissement dégressif. 

Seuil de rentabilité. 

Immobilier : 

Bilan d'une hypothèque. 

Bilan courant d'un prêt. 

Remboursement accéléré. 

Analyse de données : 

Moyenne et déviation standard. 

Moyenne mobile pondérée. 

Education : 

Entraînement à l'arithmétique. 

Tous ces programmes sont extrêmement 
faciles à utiliser et chacun peut être tapé en 
moins de 10 minutes. Aucune connaissance 
préalable du BASIC n'est nécessaire. 
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PRÉFACE 


Ce livre, MSX/56 programmes BASIC, vous permettra de mieux 
connaître les possibilités de votre ordinateur et d’en apprécier la 
souplesse d’emploi. Il réunit 56 programmes et sous-programmes 
dûment testés et prêts à être utilisés. Certains vous sont proposés pour 
leur valeur éducative, d’autres pour les solutions qu’ils apporteront à 
vos problèmes d’ordre financier dans votre vie familiale comme dans 
votre vie professionnelle. Pour les mettre en œuvre, il n’est pas 
nécessaire de comprendre la programmation en langage BASIC. Lors- 
que vous avez un problème à résoudre il vous suffit d’en fournir les 
données à votre ordinateur après avoir introduit en mémoire le 
program me correspondant. 

Ces programmes vous seront utiles en des circonstances très diverses. 
Vous pourrez par exemple déterminer le seuil de rentabilité d’une 
nouvelle affaire, calculer les versements mensuels nécessaires pour 
constituer une provision permettant de faire face aux Irais d’éducation 
de vos enfants, ou encore établir le bilan prévisionnel d’un fonds de 
retraite. Les programmes d’entraînement à l’arithmétique sont cornus 
plus particulièrement à l’intention des écoliers confrontés aux difficul- 
tés de leurs « devoirs du soir ». 

Le livre comprend de nombreux programmes originaux. Vous y 
trouverez aussi des programmes d’entraînement au calcul de fractions, 
un programme de multiplication de grands nombres, et des program- 
mes associant l’analyse des données et leur traitement graphique qui 
figurent rarement dans les manuels. 

De même l’utilisation de sous-programmes de base est particulière à 
cet ouvrage. Eu effet, l’un de ses principaux objectifs est de fournir des 
programmes courts, donc faciles à introduire dans l’ordinateur; pour 
atteindre ce but, il a été établi un ensemble de sous-programmes 
généraux utilisables par les autres programmes. Ces sous-programmes 
que vous pourrez employer quand vous écrirez vos propres programmes 
vous éviteront, bien du travail. 
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Ch Z itre ! • relions pour l’utilisation des programmes Procédés 
permettant le d.alogue entre l’utilisateur e, les programmes (ReXe ce 
chapitre avant toute mise en œuvre.) ' 

Chapitre 2 : Programmes relatifs aux finances familiales et nrofes- 
stonne es. n trouvera ici des programmes permettant d’établir le 
bilan prévisionnel un compte de dépôt ou celui d’un compte constitué 
ar depots réguliers (par exemple d’un fonds de retraite) et aussi les 

ment T d * 'e «aux d’intérêt d’un investisse- 

ment ou de déterminer le rythme d'accroissement d’un capital in- 

Chapitre 3 : Programmes concernant la gestion des entreprises Ils 
permettent d’étab ,r les conditions de I amortissement d’une machine 
le seuil de rentabilité d’une affaire nouvellement créée, ou d’IZ tuer k 
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Chapitre 5 : Programmes d’analyse de données, scientifiques ou 
financières. Ces programmes permettent en particulier de calculer la 
déviation standard e, la moyenne, les diverses moyennes mobiles a 

Chapitre 6 : Il propose des exercices d’arithmétique pratique que les 
eco .ers et es lycéens utiliseront avec profit. Ces eLrcices portent sur 

^ mUltip,iCati ° n « ^ ***» i nombres 
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Préface 


On trouvera à la fin de cet ouvrage deux annexes: 

Annexe A : Listes des sous- programmes qui permettent l'utilisation 
de programmes principaux très courts. Ces listes sont ordonnées de 
telle sorte qu’il n’y a aucun problème pour s’y référer. Le rôle joué par 
les sous-prograinmes est indiqué dans les commentaires figurant dans 
les programmes principaux. 

Annexe B : Emploi des sous-programmes pour la création de 
nouveaux programmes. (La description de la méthode préconisée est 
illustrée d’exemples qui en facilitent la compréhension.) 
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INTRODUCTION 


Le but de cette introduction est de vous montrer que les programmes de 
ce livre peuvent accroître considérablement l'efficacité de votre ordi- 
nateur. Vous apprendrez comment les introduire en mémoire et les 
faire fonctionner, comment créer une bibliothèque de sous-program- 
mes et une bibliothèque de programmes pouvant être mis en œuvre à 
partir d’un même catalogue. Vous y trouverez aussi la définition d’un 
programme interactif et des informations sur la manière dont cette 
interaction est réalisée. 

Les programmes figurant ici ne demandent pas une connaissance 
particulière de la programmation en langage BASIC. Ils doivent être 
considérés simplement comme susceptibles d’apporter une solution à 
un grand nombre de problèmes professionnels ou domestiques. Cepen- 
dant, si vous souhaitez étendre vos connaissances en matière de 
programmation, ils vous apprendront comment tirer pleinement parti 
des grandes possibilités de votre ordinateur. 


INDICATIONS PRÉLIMINAIRES 

On associera à l’ordinateur un magnétophone à cassettes. Vous 
trouverez, dans votre manuel MSX, les instructions nécessaires pour 
charger les programmes en mémoire et les faire fonctionner. 

Pour utiliser ce BASIC, il suffit de mettre l’ordinateur en marche. 
Après un court instant, l’écran affiche: 

OK 

Vous aurez besoin de deux cassettes pour sauvegarder chaque groupe 
de programmes (un enregistrement de travail et une copie). Vous 
devrez toujours faire deux enregistrements de chaque programme. 
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A ce stade, vous pourrez charger en mémoire n’importe quel 
programme de ce livre. Pour cela vous devrez taper au clavier chacune 
des lignes de la liste du programme choisi de manière qu’elles soient la 
réplique exacte de celles figurant dans le livre. Après la frappe de 
chaque ligne, pressez la touche d’entrée: (RET.URN). Introduisez par 
exemple le programme qui suit: ou(<-J) 

100 PRINT « HELLO » 

1 10 END 

Commencez par taper la première ligne (100 PRINT «IIELLO».). 
Introduisez cette ligne en mémoire en pressant la touche RETURN. 
Complétez la saisie du programme en tapant puis en introduisant la 
seconde ligne. 

En effectuant ce genre d’opération vous commettrez quelquefois des 
erreurs. Si le texte est très court, le plus simple et de le retaper. S’il est 
long, reportez-vous au manuel d utilisation qui propose d’autres 
méthodes de correction. 

Pour mettre en œuvre le programme, tapez RUN 100 et pressez la 
touche d’entrée tout en surveillant l’affichage à l’écran; vous constatez 
alors que votre programme fait apparaître HELLO au-dessous du 
programme déjà affiché. D’autres informations sur l’introduction en 
mémoire, la sauvegarde et la mise en œuvre des programmes vous 
seront données un peu plus loin. 

Afin de supprimer la ligne de commandes affichée sur l’écran on 
tape : 

KEY OFF 

Nous utiliserons le clavier en mode majuscules. Il suffit de taper la 
touche CAPS. 


LES COMMENTAIRES 

Les commentaires figurant dans un programme en facilitent la 
compréhension. Ils sont précédés par le symbole REM. Sur la Figure 1.1 
les commentaires encadrent une ligne au début du programme et 
expliquent le rôle de la ligne 130. Lorsque vous effectuez la saisie d’un 
programme, vous n’avez pas en principe à taper les lignes de 
commentaires. La première ligne est cependant rendue nécessaire par 
la structure de ces programmes. La Figure 1.2 donne la liste du 
programme précédent (Figure 1.1) dans laquelle n’ont été conservées 
que les instructions nécessaires à son utilisation. 



1.1 


100 REM 

101 N J:** "EXEMPLE" 

102 REM 

110 INPUT X 

120 INPUT V 

125 REM ON AFFICHE LA GOMME DE X ET Y 
ISO PRINT X+Y 
1<10 END 


Figure /./; Programme comprenant des lignes de commentaires 


100 REM 

101 Nf=" EXEMPLE" 
110 INPUT X 

120 INPUT Y 
130 PRINT X+Y 
MO END 


Figure 1.2 : Programme comprenant des lignes de commentaires condensées 


CONSTITUTION D'UNE BIBLIOTHÈQUE 
l>l SOUS-PROGRAMMES 

On se servira d’une bibliothèque centrale de sous-programmes afin de 
'amplifier la saisie et la manipulation des programmes. Un sous- 
programme est un programme qui est utilisé comme partie d’un autre 
programme. Par exemple un sous-programme général effectue l’entrée 
des données pour une grande partie de nos programmes qui peuvent 
ainsi être courts et d’une introduction plus aisée. 

La liste de chacun des sous-programmes figure dans l’Annexe A. 
Dans l’Annexe B, il vous sera expliqué comment vous pouvez utiliser 
certains de ces sous-programmes pour créer vos propres program- 
mes. 

Tout d’abord nous établirons la bibliothèque de sous-programmes. 
Reportez-vous à l’Annexe A dans laquelle vous trouverez les listes de 
sous-programmes généraux. 

Vous commencerez par la ligne 3400. Introduisez les instructions de 
ce sous-programme dans votre ordinateur après avoir tapé NEW pour 
effacer toutes traces de précédents programmes. (Rappelez-vous que 
seuls seront conservés les commentaires de la première ligne de chaque 
programme.) L’affichage obtenu doit être celui de la Figure 1.3. 
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Figure 1.3: Une liste de programme : le sous-programme UNAU 


Poursuivez par la saisie du reste des sous-programmes. Vous 
procéderez ensuite à la sauvegarde de l’ensemble de ces sous-program- 
mes standard. Suivez les instructions du manuel MSX pour préparer 
votre magnétophone. 

Pour sauvegarder les sous-programmes sur cassette, tapez : 

CSA VE « SIJBL1B » 

Votre bibliothèque centrale de sous-programmes est maintenant 
stockée en mémoire de masse sous le nom de fichier SUBI, IB. Vous 
aurez donc la possibilité de l’associer à vos programmes d’application 
quand vous voudrez mettre en œuvre ces derniers. 


SAISIE ET MISE EN ŒUVRE DES PROGRAMMES 

Chargez tout d’abord en mémoire la bibliothèque de sous-program- 
mes en tapant : 

CLOAD .. SIJBL1B » 

Vous êtes maintenant prêt pour effectuer la saisie d’un programme. 
Tapez ses instructions conformément à la liste. Les programmes des 
Chapitres 2, 3 et 4 doivent être sauvegardés sous forme d’un seul fichier 
pour chaque chapitre. (Donnez aux fichiers des noms qui permettent de 
les identifier aisément.) Pour mettre en œuvre un de ces programmes, 
il faut le charger en mémoire centrale puis taper KIJN et le numéro de 
la première ligne du programme concerné. Lorsque vous aurez opéré la 
saisie de tous les programmes d'un chapitre, vous pourrez créer un 
catalogue qui vous permettra ultérieurement de sélectionner le pro- 
gramme que vous voudrez utiliser. La marche à suivre pour créer le 
catalogue est donnée dans chaque chapitre. Les programmes de ces 
chapitres sont composés de lignes dont les numéros sont différents; il 
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Introduction 


est ainsi possible pour chaque chapitre de mettre en mémoire en un 
seul fichier les programmes et le catalogue. 

Il y a par exemple dans le Chapitre 2 plusieurs programmes qui vous 
permettront de faire des calculs financiers. Entrez en mémoire le 
programme SUBLIB puis tapez au clavier le programme « État prévi- 
sionnel d’un compte de dépôt » et faites la sauvegarde du tout au moyen 
de l’instruction 

CSAVE « FIN » 

Si maintenant vous souhaitez utiliser un autre programmé financier, 
charger celui qui vient d’être sauvegardé en tapant : 

CLOAD « FIN » 

Vous pouvez alors introduire un deuxième programme et vous sauve- 
garderez les deux programmes ensemble en frappant au clavier 
CSAVE « FIN » 

Vous voyez donc comment, par cette méthode, il vous est possible de 
constituer une bibliothèque de programmes. 

Vous pourrez ainsi faire fonctionner n’importe quel programme du 
chapitre en le choisissant à partir du catalogue sans avoir à vous 
souvenir d’un quelconque numéro de ligne. Pour que le catalogue 
puisse être utilisé vous devrez remplacer dans la dernière ligne de 
chaque programme l’instruction END par l’instruction RETURN. 

Les programmes des Chapitres 5 et 6 sont destinés à être mis en 
œuvre d’une manière un peu différente. Le catalogue est placé en 
trie de programme; vous devez donc introduire le catalogue et ensuite 
le programme d’application choisi. Ces programmes sont lancés par 
sélection à partir du catalogue. Les catalogues étant placés au début des 
programmes, vous n’avez pas à vous préoccuper de leur assemblage et 
vous n’avez pas non plus à remplacer l’instruction END. 


MODALITÉS D'INTERACTION 

Le terme « interaction » s’applique à l'adaptation qui doit être réalisée 
entre l’ordinateur, les programmes et l’utilisateur. Le but d'un 
programme interactif est de rendre aussi simple que possible le 
dialogue de l’utilisateur avec son ordinateur. 

Ce but peut être atteint de différentes manières. Le plus souvent, la 
réponse aux questions sera obtenue par pression d'une seule touche 
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suiis intervention de la touche d’entrée. (C'est ainsi par exemple que 
seront choisis des programmes à partir du catalogue et que la simple 
trappe de la touche O ou N donnera la réponse Oui/Non.) Une autre 
disposition interactive consiste à placer toutes les questions au bas de 
l’écran de sorte que l’utilisateur les trouve toujours au même endroit. 
Les réponses sont reportées au sommet de l’écran de manière que l’on 
puisse s’y référer. 


RÉSUMÉ 

Nous avons cherché, dans ce chapitre, à vous donner les instructions 
nécessaires à la création et à la sauvegarde d’un ensemble de 
sous-programmes destinés à être utilisés conjointement aux autres 
programmes et à vous indiquer comment constituer une bibliothèque 
de programmes, groupés de manière à être mis en œuvre à partir de 
catalogues, l’agencement de ces programmes est tel qu’on pourra 
toujours ajouter, si besoin est, un nouveau programme à l’ensemble des 
précédents. 

C’est grâce à l’existence d’une bibliothèque centrale de sous- 
programmes généraux que les programmes de ce livre sont aussi courts 
et d’une utilisation aussi aisée. 


2 

FINANCES 
PERSONNELLES ET 
PROFESSIONNELLES 


Ce chapitre comprend dix programmes applicables à la gestion des 
Ci un uces personnelles ou professionnelles. Supposons par exemple que 
vous soyez sur le point de déposer de l’argent sur un compte bancaire 
pour un temps déterminé. Une banque verse fi % d’intérêts composés 
nu mois, et. une autre 8,25 % d’intérêts composés au trimestre. Un 
programme vous permettra, en utilisant votre ordinateur, de recon- 
nnilrc immédiatement le placement le plus intéressant. 

Souhaitez-vous faire des versements réguliers sur un compte 
retraite? En utilisant l’un des dix programmes de ce chapitre vous 
nilculerez la somme qui sera disponible sur ce compte quand vous 
n fréterez de travailler. Un autre vous permettra de savoir si vos 
économies sont suffisantes pour vous assurer une retraite conveiftt- 
blt\ 

Le dernier programme montre comment réunir tous les programmes 
ni un ensemble et constituer ainsi un outil de calcul financier dont 
chacun des programmes composants peut être sélectionné à partir d’un 
meme catalogue. 
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I l A I PRÉVISIONNEL D’UN COMPTE DE DÉPÔT 
Description 

Vous posez-vous des questions sur le rythme de croissance des comptes 
de dépôt? Désirez-vous comparer les résultats obtenus avec différents 
taux et périodes de compositions d’intérêts? 

Ce programme vous permet de prévoir l’évolution de votre compte. 
Vous ferez intervenir le montant de la somme déposée, le nombre 
annuel des périodes de composition des intérêts, le taux d’intérêt 
annuel et la durée de placement (en années). Le programme a été établi 
sur la base d’un taux d’intérêt constant. 

Exemple 

Thomas place une somme de 40 000 P sur un compte de dépôt pour une 
duree de quatre ans. Ce placement lui rapporte 12 % d’intérêts annuels 
composés trimestriellement. Thomas voudrait savoir quel sera le 
montant de son compte au bout de quatre ans. I,a Figure 2.1 montre le 
résultat du calcul obtenu à l’écran. La Figure 2.2 donne la liste du 
programme correspondant. 


'J! Finances personnelles et professionnelles 




Fi pure 2. 1. : Affichage à l'écran : Étal prévisionnel d'un compte 


ETAT PREVISIONNEL D'UN COMPTE 


DEPOT INITIAL (F) 40000.00 
PERIODES PAR AN 4.00 
TAUX D ’ INT ANN (%> 12.00 
NOMBRE D'ANNEES 4.00 

ETAT EN FIN DOPER (F) 641B3.30 


-VOULEZ -VOUS 
CALCULER 

DE NOUVEAU 0 OU N ?0 


280 REM 

290 N*="ETAT PREVISIONNEL D'UN COMPTE" 

300 REM 

305 REM PREPARATION 

310 GOSUB 6200 : k=l 

320 REM PARAMETRES A UTILISER 

330 01*=" INTRODUISEZ LES DONNEES" : 02*="" 

340 03*= " DEPOT INITIAL !F>" : GOSUB 6600 

350 Q3*=" PER IODES PAR AN" : GOSUB 6600 

360 Q3T = " T AUX D'INT ANN (7.)“ : GOSUB 6600 

370 03*= "NOMBRE D'ANNEES" : GOSUB 6600 

380 REM CALCULS 

390 PR INT 

400 PRI NT "ETAT FINAL <F ) " î T AB ( 23) 

410 A=PAR(I> 

420 FOR 1=1 TO PAR (2) «PAR (4) 

430 A=AHA»PAR<3) 7100/FAR<2> 

440 NEXT I 

450 A=INT(A»100+. 51/100 

460 PR INT USING"4#tMHtH . WW" ; A 

470 Q2*=” CALCULER" : GOSUB 3400 

4B0 IF NC1*="N" THEN END ELSE GOTO 2B0 


Figure 2.2. : Liste du programme : État prévisionnel d'un compte 




Finances personnelles et professionnelles 
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ÉTAT PRÉVISIONNEL D’UN COMPTE CONSTITUÉ 
PAH DES DÉPÔTS RÉGULIERS 

Description 

Ce programme permet d’obtenir le montant d’un compte constitué par 
une série de versements réguliers. Vous pouvez par exemple déterminer 
à l'avance l’état de votre compte retraite en fonction de vos versements. 
Vous ferez intervenir le montant de chaque versement, le nombre de 
versements effectués par an, le taux de l’intérêt que vous rapporte votre 
argent et le nombre d’années durant lesquelles vous ferez ces verse- 
ments. On a posé comme hypothèse que le nombre de versements par 
an et celui des périodes de composition de l’intérêt sont les mêmes. 

Exemple 

Anne a l’intention de verser chaque mois 4 ÜÜO F sur son compte de 
dépôt. Son compte lui rapportera un intérêt annuel de 6 % composé 
mensuellement. Quelle somme aura-t-elle sur son compte dans quatre 
ans? La Figure 2.3 montre l’affichage concernant cet exemple. La liste 
du programme se trouve Figure 2.4. 
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f 


ETAT PREV DUN COMPT CONST PAR DEP REGU 


MONT DUN VERSEMENT <F) 4000.00 
NBRE DE VERSMNTS P0R AN 12.00 
INTERET ANNUEL ( 7 .) 6.00 
NOMBRE D • ANNEES 4 . 00 

ETAT EN FIN DOPER (F) 216391.00 


-VOULEZ —VOUS 
CALCULER 

DE NOUVEAU O OU N 70 


Figure 2.3. : Affichage à l'écran : 
État prévisionnel d'un compte constitué par des dépôts réguliers 


490 REM 

500 N*="ETAT PREV DUN COMPT CONST PAR DEP REGU" 

510 REM 

515 REM PREPARATION 

520 GOSUB 6200 : K=1 

530 REM PARAMETRES A UTILISER 

540 01*=" INTRODUISEZ LES DONNEES” : Q2*="" 

550 Q3*="M0NT D'UN VERSEMENT CF>“ : GOSUB 6600 
560 03*= "NBRE DE VERSMNTS PAR AN" : GOSUB 6600 
570 03*=" INTERET ANNUEL (7.)" : GOSUB 6600 
580 Q3*="N0MBRE D'ANNEES" : GOSUB 6600 
590 REM CALCULS 

600 PRINT"ETAT FINAL (F) " ; TAB (25) 

610 A=0 

620 FOR 1=1 TO PAR(2)»PAR(4) 

630 A=PAR ( 1 1 +A+A»PAR (3) /100/PAR <2> 

640 NEXT 1 

650 A=INT<A*100+. 51/100 

660 PRINT USING"tt*ll4»».#4' , iA 

670 02*= "CALCULER" : GOSUB 3400 

6B0 IF N0*= "N" THEN END ELSE GOTO 520 


Figure 2.4. : Liste du programme : 
État prévisionnel d'un compte constitué par des dépôts réguliers 
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VALEUR ACTUALISÉE D’UNE CRÉANCE 
Description 

Supposons que Robert ait à vous rembourser dans (rois ans une somme 
de 40 000 F. Il vous propose un remboursement immédiat de 32 000 F 
et vous vous demandez si vous devez accepter son offre. Le présent 
programme utilise, pour déterminer la valeur actualisée de votre 
créance, le taux d’intérêt que vous indiquerez. Si cette valeur est 
inférieure à 32 000 F vous pouvez accepter l’offre. 

Pour mettre en œuvre ce programme, vous ferez intervenir le 
montant du paiement à terme, le taux de l’intérêt annuel que peut vous 
rapporter l’argent remboursé, le nombre annuel des périodes de 
composition de cet intérêt et la durée (en années) de la période au bout 
de laquelle le versement doit être fait. 

Exemple 

Guillaume détient un effet pour une somme de 80 000 F qu’on lui 
remboursera dans cinq ans. D’ordinaire, il prête de l’argent à un taux 
d'intérêt de 10 % composé trimestriellement. Il désire savoir quelle est 
la valeur actuelle de l’effet en sa possession. La Figure 2.. r > représente 
I affichage correspondant à la mise en œuvre du programme de calcul 
de la valeur actualisée, et la Figure 2.6 la liste de ce programme. 
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VALEUR ACTUALISEE D'UNE CREANCE 


MONTANT A TERME (F) 80000.00 
NOMBRE DE PERIODES PAR AN 4.00 
INTERET ANNUEL (X) 10.00 
DUREE EN ANNEES 5.00 


VALEUR ACTUALISEE (F) 


48021.90 


VOULEZ-VOUS 

CALCULER 

DE NOUVEAU 0 OU N ?0 


Figure 2.5: Affichage à l'écran: Valeur actualisée d'une créance 


REN 

N*="VAL£UR ACTUALISEE D’UNE CREANCE" 

REM 

REM PREPARATION 

GOSUB 6200 : K=1 

REM PARAMETRES A UTILISER 

01*=" INTRODUISEZ LES DONNEES" : 02*="" 

Q3*=" MONTANT A TERME (F)” : GOSUB 6600 
Q3*~ " NOMBRE DE PERIODES PAR AN" : GOSUB 6600 
03*=" INTERET ANNUEL (7.)" : GOSUB 6600 
Q3*=" DUREE EN ANNEES" : GOSUB 6600 
REM CALCULS 

PR INT "VALEUR ACTUALISEE !F> “ ) TAB <25 ■ 

A=PAR ( 1 1 / < 1»-PAR<3) / 100/PAR (2) > ' (PAR (2) *PAR<4> ) 
A=INT(A»100+. 51/100 
PRINT USING"#Htt##».tt»":A 
REM UN AUTRE CALCUL ? 

Q2*= "CALCULER" : GOSUB 3400 
1F NO*“"N" THEN END ELSE GOTO 690 


Figure 2.6 : Liste du programme : Valeur actualisée d'une créance 
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VALEUR ACTUALISÉE D’UNE CRÉANCE 
A TERME ÉCHELONNÉ 

Description 

L’exemple précédent concernait le calcul de la valeur actualisée d’une 
creance dest.nee a etre honorée en une seule fois. Le présent 
programme vous permettra d’obtenir la valeur actualisée d’une C Lce 
qu, fait 1 objet de versements échelonnés. Supposons, par exemple que 
s™„„, au acheté votre vota, e, voua 1. paie en ttôis ,„ S 

F par mois. Au bout d un an, elle vous offre de régler sa dette en 
vous versant 7 200 F. Vous vous demandez si vous devez accepter Ce 
programme vous donnera la réponse. Vous accepterez l’offre si \l valeur 
actualisée de votre créance est inférieure à 7 200 F 

Vous ferez intervenir le montant de la vente, le nombre de 
versements effectues par an, le nombre d’années durant lesquelles ces 
versements seraient effectués et le taux d’intérêt correspondant au 

crédit ainsi consenti. Ici encore on considère que le nombre des 
rrirtsllrts ' e n ° mbre dCS ***• corn P os ‘ t *on 

Exemple 

3 2«ST EIlê a vt r CüPkal | à 10 | % ’ JaC(,Udine chaque mois I 

reihn , connaître la valeur actuelle de sa créance, qui sera 

remboursée en dix ans. La Figure 2.7 montre l’affichage correspondant 
exemple, et la Figure 2.8 est la liste complète du programme. 
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MONT D'UN VERSEMENT (F) 
NBRE DE VERSE MNTS PAR AN 
TAUX D'INTERET ANNUEL <%> 
NOMBRE D'ANNEES 


VALEUR ACTUALISEE (F) 


•VOULEZ ‘-VOUS 
CALCULER 

DE NOUVEAU O OU N ?0 


Figure 2.7 : Affichage à l'écran : 
Valeur actualisée d'une créance à terme échelonné 


160 REM 

I/O N*="VAL ACTUAL D ' UNE CREANCE A TERME ECHEL" 

IBO REM 

105 REM PREPARATION 

190 GOSUB 6200 :K=1 

100 REM PARAMETRES A UTILISER 

105 Ql*=" INTRODUISEZ LES DONNEES" : Q2*=“" 

UO Q3*="MÛNT D'UN VERSEMENT (F)" : SOSUB 6600 
>20 Q3*="NBRE DE VERSEMNTS PAR AN" : SOSUB 6600 
130 03*=“ TAUX D'INTERET ANNUEL (Z> " : GOSUB 6600 
140 Q3*“" NOMBRE D'ANNEES" r GOSUB 6600 
150 REM CALCULS 

160 PR INT" VALEUR ACTUALISEE (F)" 5 TAB<25) 

>70 A=0 

100 FOR 1 = 1 TO PAR <21 *PAR (4) 

>90 A=A+PAR C 1 > 7 < < 1 +PAR 1 3 ) / 1 00/PAR (2)1^1) 

000 NEXT I 

010 A=INT<A»100*. 51/100 
020 PRINT USING"#t*l*##lt. »#": A 
.025 REM UN AUTRE CALCUL ? 

030 Q2$= "CALCULER " s SOSUB 3400 
040 IF NO*="N" THEN END ELSE GOTO 860 
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VERSEMENTS NÉCESSAIRES 
A I.A CONSTITUTION D’UN CAPITAL DONNÉ 

Description 

régulé 

pour' la^réEuon ptÏjTÏÏ 

d’un élément d’é q ui P emeTCtg er oTZrT 

pécule en vue d’une dépense prévisible Dans de ! f° nS " tUtl0n f un 

intervenir le montant île I, - - - , C ' e te s cas ’ vous ferez 

effectués par an, le taux de l’intérfr ** " noml,re c, «' versements 

et le nombre d’n ïes au bonde H ^ MpP ° Ptera TO,re -gent 

posé comme en besoin. On a 

Périodes de composition 1 l’intérêt ét^J~ * ^ ** 
Exemple 

de “ VCTS ™™' S pour con.ti- 

«"'• " *»•» » 320 ooo f u zr si' æ de so 

2-0 « I. liste du 8 pro gr rZ n“r” “'IJ' CXCmplC " ^ I 
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VERSMNTS NECES A LA Ci UNS f DUN CAF' DONNE 


MONTANT DU CAPITAL (F) 320000.00 
NBRE DE VERSEMENTS PAR AN 12.00 
TAUX D’INTERET ANNUEL (X) B. 50 
NOMBRE D ' ANNEES 18.00 

MONT DE CHAQUE VERSMT (K) 630. B2 


VOULEZ-VOUS 

CALCULER 

DE NOUVEAU 0 OU N ?0 


Figure 2.9: Affichage à l'écran : 
Versements nécessaires à la constitution d'un capital donné 


REM 

N*=” VERSMNTS NECES A LA CQNST D’UN CAP DONNE" 

REM 

GOSUB 6200 : k=l 

REM PARAMETRES A UTILISER 

01*=" INTRODUISEZ LES DONNEES” : 02*='"' 

Q3*=" MONTANT DU CAPITAL <F>” : GOSUB 6600 
03*= "NBRE DE VERSEMENTS PAR AN" : GOSUB 6600 
Q3*="TAUX D’INTERET ANNUEL <X) “ : GOSUB 6600 
03*= "NOMBRE D’ANNEES" : GOSUB 6600 
REM CALCULS 

PRINT"MONT D ’ 1 VERSEMENT (F i " ; T AB > 25) 

I=PAR <3) / 100/PAR (2> 

0=PAR(2)*PAR(4) 

A=PAR< I) *I/< 11*1) J 'Q-1> 

A“1NT(A*100*.5>/100 
PRINT U3ING"#»*#*». Hit": A 
REM UN AUTRE CALCUL ? 

02*= " CALCULER " : GOSUB 3400 
1F NO*="N" THEN END ELSE GOTO 1050 


Figure 2.10: Liste du programme: 
Versements nécessaires à ta constitution d'un capital donné 
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RETRAITS DE FONDS 

Description 

Vous utiliserez ce programme pour savoir pendant combien de temps 
vous pourrez effectuer des retraits d’un montant donné avant que votre 
compte bancaire ne soit à découvert. Il vous faudra faire intervenir le 
montant du dépôt initial, le nombre de retraits effectués par an, le taux 
de l'intérêt que donnent les sommes restantes et le montant de chaque 
retrait. Ici encore nous considérons que le nombre de retraits effectués 
annuellement est égal au nombre de périodes de composition de 
l’intérêt. 

Si le montant du retrait est inférieur à celui des intérêts, votre 
compte bancaire s’accroîtra au lieu de tendre à être débiteur. Dans ce 
cas, le programme affichera le message : SOLDE CROISSANT. L’opé- 
ration peut être longue, l’ordinateur effectuant autant de cycles de 
calcul qu’il est nécessaire pour obtenir un solde égal à zéro. 

Exemple 

Jacques et Jeanne Jamin ont l'intention de prendre leur retraite. Le 
montant de leur compte bancaire s’élève à 800 000 F et l’intérêt qu’ils 
perçoivent est de 9 %. Ils estiment avoir besoin de 6 400 F par mois. 
Durant combien d’années pourront-ils retirer mensuellement cette 
somme de leur compte? La Figure 2.11 représente l’affichage corres- 
pondant à cet exemple et la Figure 2.12 la liste du programme. 



Figure 2.12: Liste du programme : Retrait de fonds 
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RETRAIT DE FONDS 


DEPOT INITIAL IF) BOOÜOÛ.OÛ 
NBRE DE RETRAITS PAR AN 12.00 
TAUX D'INTERET ANNUEL (7.) 9.00 
MONT DES RETRAITS <F> 6400.00 


NOMBRE DE RETRAITS 
DUREE EN ANNEES 


371.00 

30.92 



-VOULEZ -VOUS 
CALCULER 

DE NOUVEAU 0 OU N ?0 


Figure 2.11 : Affichage à l'écran : Retrait de fonds 


Ql*=" INTRODUISEZ LES DONNEES" : Q2*="“ 

Ü3*=" DEPOT INITIAL (F) “ : GOSUB 6600 
03*= "NBRE DE RETRAITS PAR AN” : GOSUB 6600 
Q3*="TAUX D'INTERET ANNUEL (X)" l GOSUB 6600 
Q3*="MCNT DES RETRAITS <F) " : GOSUB 6600 
REM CALCULS 

PR I NT " NOMBRE DE RETRAITS" ; TAB (25) 

A=PAR(1> : Z=1 

A=A+A*F'AR (3) / 100/PAR (2) -PAR <4> 

IF A<PAR(1> THEN 1400 

PRINT i PR INT "SOLDE CROISSANT" 

GOTO 1460 

IF A<PAR(4! THEN 1430 
Z-Z + l 
GUTO 1370 

PRINT USING' tt#"i Z 

PR INT "DUREE EN ANNEES" ; TAB (25) 

PRINT USING"#»»#l*tt.»»";Z/12 
REM UN AUTRE CALCUL ? 

02*= "CALCULER" : GOSUB 3400 
IF NO*="N" THEN END ELSE GOTO 1240 




Figure 2.12: Liste du programme : Retrait de fonds (suite) 
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TAUX D’INTÉRÊT D’UN INVESTISSEMENT 
Description 

Le programme utilisé dans cet exemple permettra de déterminer le taux 
de l’intérêt que rapporte un placement lorsqu’on connaît son montant 
intitial et le montant qu’il atteindra en fin d’investissement. Vous 
pourrez ainsi calculer le taux de l’intérêt correspondant à la plus-value 
provenant de la vente d’une maison. Vous ferez aussi intervenir la 
valeur initiale et la valeur actuelle de la maison, le nombre par an des 
périodes de composition de l’intérêt et la durée de l’investissement en 
années. 

Exemple 

Il y a quatre ans. Tante Marne a donné à son courtier, pour 
investissement, la somme de 40 000 F. Elle reçoit maintenant en retour 
72 000 F. Elle désire connaître le taux des intérêts composés trimes- 
triellement correspondant à cet investissement. Les Figures 2. 13 et 2.14 
sont respectivement l’affichage et la liste du programme concernant cet 
exemple. 





1 480 REM 

1490 Nr— "TAUX D’INTERET O UN INVESTISSEMENT" 

1500 REM 

1510 GOSUB 6200 : K=1 

1520 REM PARAMETRES A UTILISER 

1530 □lt="INIRODUISEZ LES DONNEES" : Q2*='"' 

1540 Q3*="S0MME INVESTIE <F> " : GOSUB 6600 
1550 Q3*=“S0MME PRODUITE (F)" : GOSUB 6600 
1560 Q3*="PER IODES PAR AN" : GOSUB 6600 
1570 Q3*=" NOMBRE D’ANNEES" : GOSUB 6600 
1580 REM CALCULS 

1590 PRINT : PRINT"TAUX D ’ INTERET ANNUEL <70 " $ TAB (25) 
1600 Q=PAR<3) «PAR (4) 

1610 I=< (PAR (2) /PAR ( 1) (l/Ql-l )*100»PAR<3) 

1620 1=1 NT (I *100+- 5) / 100 
1630 PRINT US ING "#»«#*#. (Ht "s I 
1635 REM UN AUTRE CALCUL ? 

1640 Q2*“"CALCULER" : GOSUB 3400 

1650 IF NO*-"N” THEN END ELSE GOTO 1480 


Figure 2.13: Liste du programme : Taux d’intérêt d'un investissement 





VALEUR ACTUELLE NETTE, 
PRODUITS DISPONIBLES BRUTS 


Description 

de déterminer si “ 

<i r , justlfie un - d,i ”H 

p™d U i,7 d i™bk° u ce r P v é™ ;,r ir la ? w ac,ueiie d ’ une sêrie ■*« 

§§§Ss#t^J 

Exemple 

négatif, ce qui ind.que que le rendement de 12 % n’est pas atteint- e„ 



> REM 

> disponible BRUTS" 

> DIM PV(IOO) 

» GOSUB 6200 : K=1 

> REM PARAMETRES A UTILISER 

! °1*=™0DU.SEZ LES DONNEES" : 02*--- 

- I-CVÏS ANNUEL tosUB 6600 

' QcJ'ENRE^ST^S" LES PR0D DISP ANNUELS " 

GOSUB "5000 ° APRES ACHEVEMENT " 

J = 10 


Figure 2.16 : Liste du programme : 

Valeur actuelle nette, produits disponibles bruts 
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VAL ACT NETTE, PRODUITS DISPONIBLE BRUTS 


SOMME INVESTIE (F) 

TAUX D'INTERET ANNUEL <7.) 


40000.00 

12.00 


VALEUR ACTUELLE NETTE 


PROD DISPON 
PROD DISPON 
T-'ROD DISPON 
PROD DISPON 
PROD DISPON 
PROD DISPON 


? 4000 
? 12000 
? 12000 
? 12000 
? 8000 
? 0 


VOULEZ-VOUS 

CALCULER 

DE NOUVEAU O OU N 70 


Figure 2.15 : Affichage à l'écran : 
Valeur actuelle nette, produits disponibles bruts 


IBÜO FOR 1=1 TO ÎOO 
1010 LOCATE 1 , J 

1820 PR INT "PROD DISPON " +STR* < I > ; " 

1030 LOCATE 14, J 
1040 INPUT PV<I) 

1 050 IF PV(I)=0 THEN 1890 
1860 

1870 IF J=16 THEN J=10 
1080 NEXT I 
1090 NPV= -PARU) 

1900 FOR 1=1 TO 100 
1910 NPV-NPV+PV < I > / <1+PAR<2> 7100)^1 
1920 NEXT I 
1930 LOCATE 1,6 

1940 PRINT : PR INT" VALEUR ACTUELLE NETT1 

1950 A=INT<NPV*100+. 51/100 

1960 PRINT USING" »*»»#». A 

1970 FOR 1=1 TO 100 

1980 PV(I)-0 

1990 NEXT I 

2000 Q2*=" CALCULER" : GOSUB 3400 
2010 IF NO*="N" THEN END ELSE GOTO 1700 


Figure 2.16 : Liste du programme : 
Valeur actuelle nette, produits disponibles bruts (suite) 
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DÉLAI DE DOUBLEMENT 
Description 

Ce programme servira à calculer le temps nécessaire pour qu’un capital 
investi double de valeur. Pour l’utiliser, il faut faire intervenir le laux 
d’intérêt et le nombre annuel de ses périodes de composition. 

Exemple 

Frédéric est titulaire d’un compte bancaire qui lui rapporte un intérêt 
annuel de 12 % composé trimestriellement. Combien faudra-t-il d’an- 
nées pour qu’un capital de 40 000 F déposé sur son compte ait doublé 
de valeur? L’affichage fournissant la réponse est donné par la 
Figure 2.17 et la liste du programme par la Figure 2.18. 



Finances personnelles et professionnelles 


HHÜ 


DIX AI DE DOUBLEMENT 




PERIODES PAR AN 

TAUX D'INTERET ANNUEL (X) 


TEMPS POUR DOUBLER (ANNEES) 


-VOULEZ-VOUS 

CALCULER 

DE NOUVEAU O OU N ?0 


VEAU O OU N ?0 

J 

Figure 2.17 : Affichage à l'écran : Délai de doublement 


REM 

N*=" DELAI DE DOUBLEMENT" 

REM 

GOSUB 6200 : K= 1 

REM PARAMETRES A UTILISER 

01*=" INTRODUISEZ LES DONNEES" : Q2*="" 

Q3*="PERI0DES PAR AN" : GOSUB 66Ù0 

Q3*="TAUX D'INTERET ANNUEL (%>" : GOSUB 6600 

REM CALCULS 

PR INT: PR INT "TEMPS POUR DOUBLER (AN) ' ; TAB (25) 
I— PAR (2) / 1 OO/PAR ( 1) 

Y=LGG ( 2 > / < PAR ( 1 ) *LÜ6 ( I + 1 ) ) 

Y=INT(Y*100+. 51/100 
PRINT USING"ttmtltl*l». #»"; Y 
REM UN AUTRE CALCUL ? 

02*»" CALCULER" : GOSUB 3400 
IF NO*»"N" THEN END ELSE GOTO 2050 


Figure 2.18 : Liste du programme : Délai de doublement 
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TAUX D’INTÉRÊT ÉQUIVALENT 
Description 

Dans la plupart des programmes de ce chapitre, on a posé comme 
hypothèse que le nombre des périodes de composition de l’intérêt 
correspond au nombre de versements effectués. Dans les cas où cette 
hypothèse ne convient pas, le présent programme permet de définir un 
taux d’intérêt équivalent. L’utilisation de ce programme nécessitera la 
prise en considération du taux d’intérêt annuel, du nombre de périodes 
de composition et du nombre de versements effectués par an. Le 
programme effectuera alors le calcul du taux d’intérêt équivalent qui 
sera celui que vous prendrez en compte. 

Exemple 

Vous faites des versements mensuels sur un compte de dépôt et vous 
souhaitez connaître le montant qu’atteindra votre investissement à une 
date donnée. L’intérêt pour ce compte est de 12 % l’an, composé par 
trimestre. Comme il est indiqué Figure 2.19, le tauxd’intérêt équivalent 
est de 11,88 %. C’est ce taux que vous devrez utiliser pour obtenir la 
solution cherchée lorsque vous mettrez en œuvre le programme de 
calcul de l’état d’un compte constitué par des dépôts réguliers. La liste 
du programme de calcul de l’intérêt équivalent est donnée par la 
Figure 2.20. 


Finances personnelles et professionnelles 


TAUX D'INTERET EQUIVALENT 


TAUX D'INTERET ANNUEL (X) 
NBRE DE PERIODES INITIAL 
NOUVEAU NBRE DE PERIODES 

TAUX D'INTERET EQUIVALENT 


-VOULEZ -VOUS 
CALCULER 

DE NOUVEAU O OU N ?0 


Figure 2.19 : Affichage à l'écran : Taux d'intérêt équivalent 


REM 

N*="TAUX D'INTERET EQUIVALENT" 

REM 

GOSUB 6200 : K=1 

REM PARAMETRES A UTILISER 

Ql*=" INTRODUISEZ LES DONNEES" : Q2*="" 

Q3*="TAUX D'INTERET ANNUEL C/.) “ : GOSUB 6600 

Q3i="NBRE DE PERIODES INITIAL" : GOSUB 6600 

Q3*=" NOUVEAU NBRE DE PERIODES" : GOSUB 6600 

I =PAR < 1 ) : Q2=PAR <2ï : Q1=PAR(3> 

IEQ=Ql»(t+I/100/Q2)'<Q2/Ql)-Ql 

PRINT : PR I NT" TAUX D'INT EQUIVALENT" : T AB <25 ) 

PRINT USING"»#####.##"; IEQ*100 

Q2*= "CALCULER" j GOSUB 3400 

IF NO*="N" THEN END ELSE GOTO 2210 


Figure 2.20 : Liste du programme : Taux d'intérêt équivalent 
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CATALOGUE DE PROGRAMMES FINANCIERS 


Toutes les listes des programmes de ce chapitre ont des lignes 
numérotées de manière distincte. Si vous rassemblez tous ces program- 
mes sur une seule cassette, vous pourrez utiliser le programme- 
catalogue figurant ici pour mettre en œuvre l’un ou l’autre d’entre eux. 
Ce catalogue est constitué de telle manière qu’il vous suffit pour cela de 
presser une seule touche. 

Rappelez-vous que l’utilisation d’un catalogue vous oblige à rempla- 
cer 1 instruction END à la fin de la liste de chaque programme par 
1 instruction RE1URN. Il vous faudra d’abord charger en mémoire vos 
programmes financiers, puis frapper au clavier la liste du programme 
de catalogue. Sauvegardez ensuite le tout au moyen de la commande 
SAVE. Vous trouverez le catalogue Figure 2.21. La liste du programme 
qui permet de l’obtenir est donnée par la Figure 2.22. 

Lorsque vous en avez fini avec un programme financier, vous pouvez 
revenir au BASIC pour charger un autre programme en tapant la 
touche de réinitialisation. 



Finances personnelles et prof 


ETAT PREVISIONNEL DUN COMPTE 

ET PREV D'UN CPT CONST PAR DEP RES 

VALEUR ACTUALISEE D’UNE CREANCE 

VAL ALT DUNE CREANCE A TERME ECH 

VERS NECS A LA CONST D'UN CAP DON 

RETRAIT DE PONDS 

TAUX D'INT D'UN INVESTISSEMENT 

VAL ACT NET, PRODUITS DISP BRUTS 

DELAI DE DOUBLEMENT 

TAUX D'INTERET EQUIVALENT 


CHOISISSEZ LE PROGRAMME 


Figure 2.21 : Affichage à l'écran : Catalogue de programmes financiers 


100 REM 

110 N*-" PROGRAMMES FINANCIERS" 

120 REM 

130 GOSUB 6200 

140 REM DEFINITION DU CHAMP DU CATALOGUE 
1 50 XF ( 1 ) = " ET AT PREVISIONNEL D'UN COMPTE" 

160 X*(2)="ET D'UN CPT CONST PAH CEP REG 1 
170 XF C-3) ="VALEUR ACTUALISEE D UNE CREANCE" 

180 X*(4)="VAL ACT D UNE CREANCE A TERME ECH" 

190 XF (5) ="VERS NECS A LA CONST D'UN CAP DON" 

200 X* (6>="RETRAIT DE FONDS" 

210 X* (7) — "TAUX D'INT D'UN INVESTISSEMENT" 

220 XF (8) —"VAL ACT NET, PRODUITS DISP BRUTS" 

230 X* (9) ""DELAI DE DOUBLEMENT" 

240 XF < 10) *=" TAUX D'INTERET EQUIVALENT" 

245 REM AFFICHAGE DU CATALOGUE 
250 Z=10 : GOSUB 7000 

259 REM CHOIX DU PROGRAMME 

260 UN X GOSUB 280 , 490 , 690 , 860 , 1050 , 1240 , 1480 , 1660 , 2020,2180 

270 GOTO 100 


Figure 2.22 : Liste du programme : Catalogue de programmes 


inanciers 
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PROGRAMMES DE 
GESTION COURANTE 


Hans ce chapitre figurent dix programmes d’aide à la gestion. Ils vous 
permettent d’établir des tableaux d’amortissement, de décider de 
l'importance d’une commande et de résoudre divers autres problèmes 
concernant les affaires. 

Par exemple, si vous lancez une affaire commerciale, si vous 
organisez un gala de bienfaisance, le programme de calcul du seuil de 
rentabilité vous indiquera le nombre d’articles ou de billets de 
participation que vous devez vendre pour obtenir un bénéfice. Si vous 
êtes commerçant ou si vous employez un représentant de commerce, le 
programme de commission commerciale déterminera la commission 
correspondant à un volume donné de ventes. Le programme de 

1 rémunération du travail avec heures supplémentaires simplifiera le 

calcul du salaire correspondant à ce cas. Ce programme permet 
d’ajouter la paie en heures supplémentaires au traitement de base, de 
manière à déterminer le salaire global. Un programme d’aide à la 

I ““ 
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AMORTISSEMENT LINÉRAIRE 
Description 

Ce programme fournit le tableau d’un amortissement proportionnel au 
nombre d’années écoulées. Pour obtenir l’amortissement d’un bien, 
faites intervenir sa valeur comptable actuelle, sa valeur de revente 
estimée et sa durée de vie (en années). Si votre bien a une durée de vie 
supérieure à dix ans, le programme affiche le tableau concernant les dix 
premièrs années puis s’arrête. Lorsque vous êtes prêt à examiner les 
années allant de la onzième à la vingtième, appuyez sur l’une 
quelconque des touches et le tableau concernant ces années vient à 
l’affichage. 

Exemple 

Etablissons le tableau d’amortissement d’une machine de bureau. La 
valeur actuelle de cette machine est de 40 000 F. Nous envisageons 
d’utiliser cette machine pendant six ans et de la revendre alors 8 000 F. 
La Figure 3.1 montre l’affichage du tableau d’amortissement. La Figure 
3.2 donne la liste du programme qui permet de l’obtenir. 
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AMORTISSEMENT LINEAIRE 


VAL COMPTABLE ACTUELLE (F) 40000.00 
VALEUR DE REVENTE (F) 8000.00 
DUREE DE VIE EN ANNEES -S.00 


AMORT (F) VALEUR (F : 
5333.33 34666.70 
5333.33 27333.30 
5333.33 24000.00 
5333.33 18666.70 
5333.33 13333.30 
5333.33 8000.00 


ANNEES 


VOULEZ -VOUS 
CALCULER 

DE NOUVEAU O OU N ?0 


Figure 3.1 : Affichage à l'écran : Amortissement linéaire 


290 N*= " AMORTISSEMENT LINEAIRE" 

300 REM 

310 GOSUB 6200 : K=1 
320 REM PARAMETRES A UTILISER 
330 Ql*=" INTRODUISEZ LES DONNEES 
340 Q3*="VAL COMPTABLE ACT" : GO! 

350 Q3*=" VALEUR DE REVENTE" : GO! 

360 Q3*=" DUREE DE VIE EN ANNEES" 

370 REM AFFICHAGE DU TABLEAU 
3BO D= (PAR < 1 > —PAR (2) > /PAR (3) 

390 PR INT 

400 PRINT-ANNEES AMORT (F) VALEUR ( F ) " 

410 FOR A=1 TO PAR (3) 

420 PRINT A; TAB (6Ï ; 

430 PRINT USING"*##ttt*##.#»“;D,PAR<l>-D«A 
440 IF A< >12 THEN 470 

445 REM ATTENTE DE LA FRAPPE D'UNE TOUCHE 

450 GOSUB 7400 

455 REM ON REVIENT AU DEPART 

460 LOACTE 1,8 

470 NEXT A 

4B0 02*=" CALCULER" : GOSUB 3400 

490 IF NQ*="N" THEN END ELSE GOTO 280 

Figure 3.2 : Liste du programme : Amortissement linéaire 


GOSUB 6600 
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AMORTISSEMENT DÉGRESSIF 
Description 

Ce programme permet d’établir facilement des tableaux utilisant la 
méthode du bilan dégressif qui est une méthode d’amortissement 
accéléré. Les méthodes d’amortissement accéléré sont souvent utilisées 
pour obtenir un meilleur traitement fiscal que celui obtenu par 
utilisation des méthodes d’amortissement linéaire. La méthode du 
bilan dégressif consiste à multiplier la valeur comptable restante d’un 
bien par un facteur d’accélération et à la diviser ensuite par la durée de 
vie du bien (en années). Vous ferez intervenir la valeur comptable 
initiale du bien, sa durée de vie et le facteur d’accélération. Les facteurs 
d’accélération usuels sont 150 %, 175 % et 200 %; la valeur de revente 
n’est pas utilisée. 

Exemple 

Déterminons l’amortissement de la machine de bureau de l’exemple 
précédent par la méthode du bilan dégressif. Pour cet exemple nous 
utiliserons un facteur d’accélération de 150%. Le tableau d’amortis- i 
sèment est donné par la Figure 3.3 et la liste du programme par la 
Figure 3.4. 



Figure 3.4 : Liste du programme : Amortissement dégressif 




AMORTISSEMENT DEGRESSIF 


VAL COMPTABLE (F) 
DUREE DE VIE (ANN) 

■/. DE DEPREC ACCELER 
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40000.00 

6.00 

150.00 


AMORT(F) 

10000.00 


VALEL)R(F) 

30000.00 


7500.00 22500.00 

5625.00 16875.00 


4218.75 

3164.06 

2373.05 


12656.30 
9492. 19 
7119. 14 


-VOULEZ- VOUS 
CALCULER 

DE NOUVEAU O OU N ?0 


Figure 3.3 : Affichage à l'écran : Amortissement dégressif 


Ql*=" INTRODUISEZ LES DONNEES" : Q2*="" 
Q3*="VAL COMPTABLE (F> " : GOSUB 6600 
Q3*="DUREE DE VIE (ANN) “ : GOSUB 6600 
Q3*="‘/. DE DEPREC ACCELER" : GOSUB 6600 
REM AFFICHAGE DU TABLEAU 
RV=PAR ( 1 ) 

PRINT 

PR I NT " ANNEE AMORT (F) V ALEUR ( F ) " 

FOR A=1 TO PAR (2) 

PRINT A; TAB (6) ; 

D=RV*PAR (3) / 1 00/PAR (2) 

PRINT US ING "#######- ##"; D,RV— D 
RV=RV— D 

IF A< >12 THEN 710 
REM ON ATTEND 
GOSUB 7400 
LOCATE 1,8 
NEXT A 

REM UN AUTRE CALCUL ? 

02*" "CALCULER " s GOSUB 3400 
IF NO*="N" THEN END ELSE GOTO 500 


Figure 3.4 : Liste du programme : Amortissement dégressif (suite) 
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AMORTISSEMENT PAH ANNÉES CUMULÉES 
Description 

Voici une deuxième méthode d’amortissement accéléré : l'amortisse- 
ment par années cumulées. Dans cette méthode d’amortissement, on 
multiplie la valeur comptable restante par le rapport entre le nombre 
d’années à courir et le nombre des années cumulées. Si la durée de vie 
d’un bien est de cinq ans la somme des années de vie est 

5 + 4 + 3 + 2+1 = 15. 

Il vous faudra là encore faire intervenir la valeur comptable actuelle, 
la valeur de revente et la durée de vie du bien. Votre ordinateur 
simplifiera considérablement l’opération. 

Exemple 

Etablissons un tableau d’amortissement par années cumulées pour le 
copieur de bureau des exemples précédents. Ce tableau est celui de la 
Figure 3.5; la liste du programme correspondant apparaît Figu- 
re 3.6. 
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AMORTISSEMENT PAR ANNEES CUMULEES 


VALEUR COMPTABLE (F) 
VALEUR DE REVENTE (F) 
DUREE DE VIE (ANNEES) 


40000.00 

3000.00 

6.00 


VALEUR (F) 

30857 . 10 

23238. 10 
17142.90 
12571.40 

9523.81 

8000.00 


AMORT(F) 
9142.86 
7619.05 
6095. 24 
4571.43 
3047. 62 
1523.81 


ANNEE 


VOULEZ VOUS 
CALCULER 

DE NOUVEAU 0 OU N 70 


Figure 3.5 : Affichage à l'écran : Amortissement pur années cumulées 


7 90 Ql*=" INTRODUISEZ LES DONNEES" : Q2*="" 
HOO Q3*=" VALEUR COMPTABLE (F)” : GOSUB 6600 
1110 Q3*= "VALEUR DE REVENTE (F)" : GOSUB 6600 
020 Q3*="DUREE DE VIE (ANNEES) “ : GOSUB 6600 
030 REM AFFICHAGE DU TABLEAU 
1140 D=PAR < 1 ) —PAR (2 ) 

B50 RV=PAR ( 1 ) 

860 PR INT 

070 PR INT "ANNEE AMORT(F) VALEUR (F) " 

880 FOR A— 1 TO PAR (3) 

890 D1=D* (PAR (3) <-l-A> 7 (PAR (3) * (PAR <3> +1 ) 72) 
900 PRINT A; TAB (6) ; 

910 PRINT USING“#4tt##»ttt.##";Dl,RV-Dl 

920 RV=RV-D1 

930 1F A< >12 THEN 960 

940 GOSUB 7400 

950 LDCATE 1,8 

960 NEXT A 

965 REM UN AUTRE CALCUL ? 

970 02*= " CALCULER " : GOSUB 3400 
980 IF NÜ*="N" THEN END ELSE GOTO 740 


Figure 3.6 : Liste du programme : 
Amortissement par années cumulées (suite) 
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SEUIL DE RENTABILITÉ 
Description 

Ce programme permet à une entreprise commerciale de déterminer, 
pour un type de produit, le nombre d’articles qu’il est nécessaire de 
vendre pour atteindre le seuil de rentabilité. A cette fin, on prendra en 
compte les frais généraux de l’entreprise, le prix de revient du produit à 
l’unité (fabrication ou achat) et le prix de vente à l’unité. 

Exemple 

Henri achète des articles 24 F chaque et projette de les vendre par 
correspondance 48 F. S’il a l’intention de dépenser 12 000 F en 
publicité, combien d’articles doit-il vendre pour atteindre le seuil de 
rentabilité? L’affichage à l’écran concernant cet exemple est donné par 
la Figure 3.7 et la liste du programme par la Figure 3.8. 
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SEUIL DE RENTABILITE 


FRAIS GENERAUX (F) 
COUT PAR UNITE 
PRIX DE VENTE (F) 


12000.00 

24.00 

48.00 


SEUIL DE RENTABILITE -> 500 UNITES 


-VOULEZ-VOUS 

CALCULER 

DE NOUVEAU O OU N ?0 


Figure 3.7 : Affichage à l’écran : Seuil de rentabilité 


990 REM 

1000 N*="S£UIL DE RENTABILITE" 

1010 REM 

1020 GOSUB 6200 : K=1 

1030 REM PARAMETRES A UTILISER 

1040 Q 1 *= " I NTRODU I SEZ LES DONNEES" : Q2*=" " 

1050 Q3S="FRAIS GENERAUX (F) " : GOSUB 6600 

1060 Q3$— "COUT PAR UNITE" : GOSUB 6600 

1070 03*= "PRIX DE VENTE (F) " : BOSUB 6600 

1080 PR INT 

1090 PRINT"SEUIL DE RENTABILITE 
1 ÎOO US=INT (PAR ( 1 ) / (PAR (3) -PAR (2) >*100+.5) /ÎOO 
1110 PRINT US I NG " ##### " ; US : : PRINT" UNITES" 
1115 REM UN AUTRE CALCUL ? 

1120 Q2*=" CALCULER" : GOSUB 3400 
1130 IF NO*="N" THEN END ELSE GOTO 990 


Figure 3.8 : Liste du programme : Seuil de rentabilité 
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OPTIMISATION DES ORDRES D’ACHAT 
Description 

Les économistes ont mis au point une méthode permettant aux chefs 
d'entreprise de calculer le nombre optimum d’articles que doit 
comporter une commande. Ce programme exécute pour vous un tel 
calcul. Pour l’utiliser, il vous faut faire intervenir le prix de revient 
d’un ordre d’achat, le nombre d’articles nécessaires pour un an et le 
prix annuel courant par article. Le prix courant est obtenu en 
multipliant le taux de rentabilité de votre entreprise par le prix d’achat 
par article. 

Exemple 

Raymond est le directeur de production d’une petite entreprise. Il 
souhaite calculer le nombre optimal de pompes devant figurer sur 
chacune des commandes effectuées pour les besoins de l’usine. Cette 
usine utilise 15 000 pompes par an. Le prix courant d’une pompe est de 
40 F et le coût d’un ordre d’achat de 600 F. Quelle est la quantité 
optimale de pompes par commande? I-a Figure 3.9 donne le résultat de 
l’analyse de Raymond et la Figure 3.10 la liste du programme 
correspondant. 
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OPTIMISATION DES ORDRES D'ACHAT 


COUT D'UN ORD D'ACHAT (F) 600.00 
NOMBRE D’ARTICLES PAR AN 15000.00 
PRIX COURANT PAR UNITE 40.00 

NBRE D'ARTICL PAR COMMANDE 15 670 UNITES 


-VOULEZ-VOUS 

CALCULER 

DE NOUVEAU O OU N ?0 


■nNHEHnoMii 


Figure 3.9 : AJJïchage à l'ccran : Optimisation des ordres d'achat 


REM 

N*="QPTIMISATI0N DES ORDRES D’ACHAT" 

REM 

GOSUB 6200 : K=1 
REM PARAMETRES A UTILISER 
Ql*=" INTRODUISEZ LES DONNEES" : Q2*=“" 
Q3*="C0UT D'UN ORDRE D'ACHAT” : GOSUB 6600 
03*= " NOMBRE D'ARTICLE PAR AN” : GOSUB 6600 
03*= "PR IX COURANT PAR UNITE” : GOSUB 6600 
REM CALCUL ET AFFICHAGE 
PR INT 

NAC=INT (SQR <2»PAR ( 1 ) *PAR (2) /PAR<3> ) ) 

PR I NT "NBRE D ' ART I CLE/COMMANDE- ” i 
PRINT US I NG" H####” ; NAC; 

PRINT" UNITES" 

REM UN AUTRE CALCUL 7 

Q2*=" CALCULER" ; GOSUB 3400 

IF NO*-"N" THEN END EL SE GOTO 1140 


Figure 3.10 : Liste du programme : Optimisation des ordres d'achat 


* 
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PRIX DE VENTE AVEC REMISE 


Description 




Ce programme vous servira à calculer ce que vous coûtera, toutes taxe 
comprises, un arlicle vendu avec remise. Indications à fournir : le prix 
hors taxe, le pourcentage de remise et le taux de la taxe. 


Exemple 

Elisabeth désire acheter un récepteur de radio vendu avec un rabais de 
15 %. Le prix de détail du récepteur est de 2 800 F et les taxes à la vente 
de 33,33 %. Combien Elisabeth aura-t-elle à payer? La Figure 3.11 
représente l’affichage à l’écran pour cet exemple et la Figure 3.12 celui 
de la liste du programme. 



Figure 3.12: Liste du programme : Prix de rente arec remise 
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PRIX DE VENTE AVEC REMISE 


PRIX DE DETAIL <F> 
REMISE C/.) 

TAUX DES TAXES C/.l 

PRIX 

REMISE 

TAXE 


2000.00 

15.00 

33.33 

2000.00 

420.00 

793.25 



VOULEZ -VOUS 
CALCULER 

DE NOUVEAU 0 OU N 70 


. 



Figure 3.1 1 : Affichage à l'écran : Prix de vente avec remise 



I 360 G 1 4= " INTRODUISEZ LES DONNEES" : 02* = "' 
1370 Q3*="PRIX DE DETAIL <F> " ! GOSUB 6600 
1300 Q3*="REMISE (X) " : GOSUB 6600 
1390 Q3*="TAUX DES TAXES (X)" : GOSUB 6600 
1400 REM CALCUL ET AFFICHAGE 
1410 PRINT 

1420 PRINT" PRIX" ; TAB (25) ; 

1430 PRINT USING"####. ##" ; PAR ( 1 ) 

1440 D=PARU)*PAR(2)/100 
1450 PRINT" REMISE"; TAB 125) ; 

1460 PRINT USING"####. ##" ; D 
1470 T = (PAR < 1 ) — D> *PAR 1 3) / iOO 
1480 PRINT" TAXE" ; TAB (25) ; 

1490 PRINT USING"####. ##";T 
1500 PRINT 

1510 PR INT" TOTAL" ; TAB (25) ; 

1520 PRINT USING"###». ##" ; PAR ( 1 > -D+T 
1525 REM UN AUTRE CALCUL 7 
1530 Q2*=>" CALCULER" ! GOSUB 3400 
1540 IF NO*“"N" THEN END ELSE GOTO 1310 



Figure 3.12: Liste du programme : Prix de vente avec remise (suite) 



COÛT MOYEN PONDÉRÉ 
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Description 

Il est fréquent d’avoir à calculer le coût moyen pondéré d’un certain 
nombre d’articles. La méthode de la moyenne pondérée peut être 
utilisée pour obtenir le coût moyen des articles d’un stock lorsqu’il a 
été acheté par lots à des dates et à des prix différents, et aussi la valeur 
d’inventaire lorsque des articles semblables ont été achetés à différents 
prix. 

Ce programme permet de calculer rapidement le coût moyen pondéré 
de plusieurs séries d’articles. Introduisez pour chaque article la valeur à 
l’unité suivie par le nombre d’unités. Pour terminer, frappez 0 pour la 
valeur à l’unité et 0 pour le nombre d’unités. 

Exemple 

Louis procède à l’achat de stocks d’une maison d’électronique. Il a 
l’intention de calculer le coût moyen des lots. Il a acheté quatre lots à 
80 F chaque, quatre lots à 320 F chaque et deux lots à 480 F chaque. 
Les Figures 3.13 et 3.14 montrent le résultat du calcul et la liste du 
programme. 


ISbO Ht ri 

1560 N*=" VALEUR MOYENNE PONDEREE" 

1570 REM 

1500 DIM D< 100,1) 

1590 GOSUB 6200 ! K=1 

1600 REM PARAMETRES A UTILISER 

1610 PRINT" INTRODUIRE LES DONNEES, TAPER RETURN" 

Figure 3.14: Liste du programme : Valeur moyenne pondérée 


,17 Programmes de gestion courante 



VALEUR MOYENNE PONDEREE 


INTRODUISEZ LES DONNEES, TAPEZ ENTREE 
VALEUR UNITES 


? 80 ? 4 
? 320 ? 4 
? 480 ? 2 
? 0 ? O 


LA VALEUR MOYENNE PONDEREE EST: 256 


-VOULEZ-VOUS 

CALCULER 

DE NOUVEAU O OU N 70 



Figure 3.13: Affichage à l'écran: Valeur moyenne pondérée 


PRINT : PR INT" VALEUR UNITES" 

ND=0 
J = 7 

LOCATE 1,J : PRINT" 

LOCATE 1,J : INPUT D<ND,0) 

LOCATE 12, J : INPUT D<ND,1) 

IF D(ND,1)=0 THEN 1720 

ND=ND+1 

J=J+1 

IF J=15 THEN 1640 ELSE 1650 
REM CALCULS ET AFFICHAGE 
AVE=0 : U=0 
FOR 1 =0 TO ND- 1 
AVE=AVE+D < I ,0) *D ( I , 1 > 

U-U+D (1,1) 

NEXT I 
AVE=AVE/U 
LOCATE 1,16 

PR INT "LA VALEUR MOYENNE EST: 

PRINT US ING" *##**#"; AVE 
REM UN AUTRE CALCUL ? 

02$“ "CALCULER " : GOSUB 3400 
IF NO*="N" THEN END ELSE GOTO 1590 


Figure 3.14 : Liste du programme : Valeur moyenne pondérée (suite) 
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COMMISSION COMMERCIALE 
Description 

Ce programme permet de calculer la commission due à un agent 
commercial. Prendre en compte la rémunération fixe mensuelle de 
cette personne, le volume mensuel de ses ventes et sa commission en 
pourcentage. Si le résultat est négatif c’est que le quota n’a pas été 
atteint. 

Exemple 

Samuel Spade a un traitement fixe mensuel de 9 600 F. Il a une 
commission de 6 % sur ses ventes de mobilier. Quelle est sa commis- 
sion pour un mois durant lequel il a vendu pour 200 000 F de meubles? 
Les Figures 3.15 et 3.16 donnent l’affichage à l'écran du résultat et la 
liste du programme. 




1340 REM 

1850 N*=" COMMISSION COMMERCIALE" 

1860 REM 

1870 GOSUB 6200 : K=1 

1880 REM PARAMETRES A UTILISER 

1890 G 1 * = " INTRODUISEZ LES DONNEES" : 02*“““ 

1900 Q3*="FIXE MENSUEL (F)" : SOSUB 6600 
1910 Q3*=" VENTES MENSUELLES (F)" : GOSUB 6600 
1920 G3*= "COMMISSION (X) “ : GOSUB 6600 
1930 REM CALCULS ET AFFICHAGE 
1940 PR INT 

1950 PR INT "MONTANT DE LA COMMI SSION” } TAB < 26) 

1960 PRINT USING"*##»». »#";PAR (2) »PAR(3> /100 
1970 PRINT " A PERCEVOIR (- F I XE > " ; TAB (26) 

1980 PRINT USING"#####.H»";PAR(2)»PAR<3)/100-PAR(1> 
1985 REM UN AUTRE CALCUL ? 

1990 Q2#“ "CALCULER” : GOSUB 3400 

2000 1F NO*="N" THEN END ELSE GOTO 1840 


Figure 3.16 : Liste du programme : Commission commerciale 
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PAIE AVEC HEURES SUPPLÉMENTAIRES 
Description 

Il s’agit ici de calculer aisément le traitement global d’un employé qui 
perçoit une paie en heures supplémentaires en plus de son salaire de 
base. Vous faites intervenir le salaire horaire de base, le coefficient de 
sursalaire et le nombre d’heures réglementaires et d’heures supplémen- 
taires durant lesquelles l’employé a travaillé. 

Exemple 

Antoine, mécanicien, perçoit un salaire horaire de 40 F. Au cours d’une 
semaine particulièrement chargée il effectue ses 39 heures réglemen- 
taires et 12 heures supplémentaires. Vous désirez calculer son traite- 
ment global avec un coefficient de sursalaire de 1,5. Les Figures 3.17 et 
3.18 donnent le résultat du calcul et la liste du programme. 



Figure 3.17 : Affichage à l'écran: Paie avec heures supplémentaires 


REM 

Ni" "PAIE AVEC HEURES SUPPLEMENTAIRES" 

REM 

GOSUB 6200 s K=1 

REM PARAMETRES A UTILISER 

Ql*=" INTRODUISEZ LES DONNEES" : Q2*=“" 

Q3*="SAL HOR DE BASE <F/HS> “ : GOSUB 6600 
Q3ï="COEF DE SURSALAIRE" : GOSUB 6600 
Q3i=" NOMBRE D’HRS REGLEMENT" : GOSUB 6600 
Q3*=" NOMBRE D ' HRS SUPPLEMT" : GOSUB 6600 
REM CALCULS ET AFFICHAGE 
PRINT 

PRINT" SALAIRE DE BASE" ; TAB (26) 

PRINT USING"#tt##. tttt" ; PAR ( 1 ) *PAR (3) 

PRINT" HEURES SUPPLEMENTAIRES" ;TAB (26) 

PRINT US I NG “ #*» # . ## " ; PAR ( 1 ) #P AR ( 2 ) *PAR ( 4 ) 

PRINT" SALAIRE TOTAL" ; TAB (26) 

PRINT US I NG " tt ## tt . # # " ; PAR ( 1 ) »PAR ( 3 > +PAR ( 1 ) *P AR ( 2 ) *PAR ( 4 ) 
02$= "CALCULER " : GOSUB 3400 
IF NO*="N" THEN END ELSE GOTO 2010 


_l 

Figure 3.18: Liste du programme: Paie avec heures supplémentaires 
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AIDE A LA DÉCISION 


Description 

Enfin, si vous avez encore des problèmes, si vos amis ont des 
problèmes, ce programme est prévu pour vous aider à prend 
1 importante décision qui change radicalement le cours d’une existenc 
Interrogez votre ordinateur. Mais cette fois, considérez-le comme un 
plaisant partenaire qui amusera vos invités. 

Exemple 

Edmond hésite à se laisser séduire par un projet fort audacieux. En 
l’absence d’une réponse ferme des membres de son conseil, il interroge 
son ordinateur ainsi qu’il est indiqué Figure 3.19. La liste du 
programme est donnée par la Figure 3.20. 


Programmes de gestion courante 


É 


AIDE A LA DECISION 

VEUILLEZ POSER VOTRE QUESTION 
“>? CE PROJET ABOUTIRA-T-IL ? 

IL VAUT MIEUX QUE VOUS Y CROYIEZ 


I 


-VOULEZ-VOUS 
POSER UNE QUESTION 
DE NOUVEAU 0 OU N ?0 




ViïVViVU 


Figure 3.19: Affichage à l'écran: Aide à la décision 


REM 

N*="AIDE A LA DECISION" 

REM 

GOSUB 6200 : K=1 

PR INT "VEUILLEZ POSER VOTRE QUESTION" 

PRINT"=>"; 

INPUT Q* : Y=LEN(Q$> 

IF Y<6 THEN 2300 

Y=INT (Y/2) : GOTO 2280 

ON Y GDTO 2310,2320,2330,2340,2330 

PR INT "PAS DURANT VOTRE VIE" : GOTO 2360 

PR INT "ALLEZ -Y ! " : GOTO 2360 

PRINT" IL VAUT MIEUX QUE VOUS Y CROYIEZ" : GDTO 2360 

PR INT" RISQUEZ UNE PIECE" : GOTO 2360 

PR I NT " ARRETEZ TOUT RAPIDEMENT" : GOTO 2360 

Q2$=" POSER UNE QUESTION" ! GOSUB 3400 

IF NO*="N” THEN END ELSE GOTO 2210 


Figure 3.20: Liste du programme : Aide à la décision 
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CATALOGUE DF PROGRAMMES DE GESTION 

Si vous effectuez la sauvegarde de tous les programmes de ce chapitra 
sur une seule cassette, joignez-y le programme qui en réalise la 
catalogue. Vous choisirez ensuite vos programmes en utilisant lesl 
touches chiffres de votre clavier. N’oubliez pas de remplacer l’instruc- 
tion END de chaque programme par une instruction RETURN. Avant 
d’utiliser le catalogue, reportez-vous aux instructions d’utilisation d’un 
catalogue au Chapitre 2. Les Figures 3.21 et 3.22 représentent loi 
catalogue et la liste du programme qui permet de l’obtenir. 




Programmes de gestion courante 


AMORTISSEMENT LINEAIRE 
AMORTISSEMENT DEGRESSIF 
AMORTISSEMENT PAR AN CUMULEES 
SEUIL DE RENTABILITE 
OPTIMISATION DES ORDRES D'ACHAT 
PRIX DE VENTE AVEC REMISE 
COUT MOYEN PONDERE 
COMMISSION COMMERCIALE 
PAIE AVEC HEURES SUPPLEMENTAIRES 
AIDE A LA DECISION 


CHOISISSEZ LE PROGRAMME i 


ligure 3.21 : Affichage à l'écran : Catalogue de programmes de gestion 


REM 

N*=" PROGRAMMES DE GESTION" 

REM 

GOSIJB 6200 

REM DEFINITION DU CHAMP CATALOGUE 
X f < 1 > AMQRT ISSEMENT L I NEA IRE" 

XT (2) -"AMORTISSEMENT DEGRESSIF" 

XT <3) —"AMORTI SSEMENT / ANN CUMULEES " 

X J : (4) —"SEUIL DE RENTABILI TE" 

XT 15) = "OPTIMISAT ION DES ORDRES D'ACHAT" 

X* <Û)'="PRIX DE VENTE AVEC REMISE" 

X*<7)=''C0UT MOYEN PONDERE" 

X t ( 01 ) = " COMM I SS I ON CDMMERC I ALE “ 

Xt (?) = " p A [ £ +HEURES SUPPLEMENTAIRES" 

X*aO> = "AIDE A LA DECISION" 

2 = 10 : GOSUB 7000 

ON X GOSUB 230,500,740,990, 1140, 1310, 1550,1840,2010,2210 
GOTO 100 


ligure 3.22 : Liste du programme : Catalogue de programmes de gestion 
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PROGRAMMES 
DE GESTION 
IMMORILIÈRE 


lui) programmes de gestion immobilière figurent dans ce chapitre. Ils 
réalisent pour vous, entre autres calculs pratiques, des tableaux de 
ic m boursement d 'hypothèques. 

Parmi les programmes présentés, deux sont particulièrement utiles. 
I c premier, Acquisition d’une maison, vous servira à déterminer la 
gamme de prix correspondant à vos possibilités financières en vue de 
l'achat d’une maison, en tenant compte des modalités des prêts 
bancaires. Le second programme est appelé Remboursement accéléré, 
fine petite augmentation de vos versements mensuels peut réduire 
radicalement les intérêts que vous aurez à débourser pour l’achat à 
crédit d’une maison. Voyez la Figure d.8 et vous en serez vite 
convaincu. 

Le chapitre, comme les précédents, comprend un programme 
catalogue qui vous permettra de faire votre choix parmi l’ensemble des 
programmes de gestion immobilière que vous allez constituer. 
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SOUS-PROCRAMMKS DE GESTION IMMOBILIERE 

Les programmes de ce chapitre font usage de trois sous-programm 
généraux. Chargez tout d’abord SUBLIB puis tapez les sous-prograrn 
mes de la Figure 4.1 et sauvegardez l’ensemble sous un nouveau nom. 
Lorsque vous serez prêt à utiliser un programme, vous devrez charger 
ces sous-programmes en mémoire, puis introduire le programme et 
ensuite effectuer la sauvegarde de l’ensemble. Si vous voulez utiliser le 
catalogue pour effectuer un choix, sauvegardez tous les programmes de 
ce chapitre, ainsi que les sous-programmes, dans le même fichier. Les 
listes des sous-programmes communs sont exposées Figure 4.1. Ils 
servent à préparer l’introduction de données pour les calculs de 
versement, de paiement et pour les calculs de bilan d’un prêt. 




Programmes de gestion, immobilière 


■V'Ü REM - 

,V,m ROI SS PROGRAMME DE CALCUL DES VERSEMENTS 

[ ?/•? REM 

.•IM KLM APPEL DES PARAMETRES 
k'M KLM EN-TAUX D'INTERET ANNUEL 
r ’.h. KLM AN"NO DES ANNEES 
M " REM MI3---MUNTANT DU PRET 
k tag ri m 

P M M ; - 12» AN : U-IN/100/12 : V=l/(t+Il> 

UIO F“MU<I 1 / <1 -VNI) 

I K' ... RETURN 

| ».<;.«.> REM 

l?./... REM INTRODUCTION DES DONNEES POUR LE CALCUL DES VERSEMENTS 

IfVJ G LT- "DEFINI TION DES PARAMETRES" : 02*-"” 

•ll.iO Q3*=“M0NT DE L'EMPRUNT (F)" : GOSUB 6600 
■113 QÏT = "TAUX D'INT ANNUEL <%>" ! GOSUB 6600 
<120 Q3*=" DUREE DU PRET (ANNEES)" : GOSUB 6600 
■I 110=1 AR ( 1 ) 

•no 1N-PARE2) 

<100 AN—PAR (3 > 

<160 RETURN 

<170 REM 

<100 REM CALCUL DU BILAN COURANT 

<190 REM 

!(00 REM APPEL DES PARAMETRES 
l»iû REM P— VERSEMENT 
S20 REM IN— TAUX D'INTERET ANNUEL 
;,30 REM N-NUMBRE DE VERSEMENTS 
Ü<K> REM MD-MONTANT DU PRET 
*W0 FOR I-l TO Z 
S60 M0-M0-P+IN/i2/I00*M0 
S 'O NE X T I 
BQO RETURN 


Figure 4.1 : Liste du programme : 
Sous-programme de gestion immobilière 
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VERSEMENTS MENSUELS 
Description 

Ce programme permet de connaître le montant des versements 
nécessaires pour l’amortissement complet d’un prêt. Vous devez donner 
le montant du prêt, le taux d’intérêt annuel, et la durée du prêt (en 
années). 

Exemple 

Daniel et Danièle vont acheter une maison 800 000 F. Ils ont l'inten- 
tion de faire un versement comptant de 200 000 F et de payer le reste 
du montant de leur achat par remboursement d’un prêt à 12 % sur 
30 ans. A combien s’élèveront leurs versements mensuels? Les Figu- 
res 4.2 et 4.3 montrent l’affichage à l’écran et la liste du programme 
concernant cet exemple. 



Orogrammes de gestion immobilière 


CALCUL DES VERSEMENTS MENSUELS 


MONTANT DE L’EMPRUNT (F) 600000.00 
TAUX D’INTERET ANNUEL (ZI 12.00 
DUREE DU PRET (ANNEES) 30.00 


LE VERSEMENT MENSUEL EST 


6171.60 


VOULEZ-VOUS 

CALCULER 

DE NOUVEAU 0 OU N ?0 


■hMEMMMk 


Figure 4.2 : Affichage à l'écran : Calcul des versements mensuels 


590 REM 

600 N*="CALCUL DES VERSEMENTS MENSUELS" 

610 REM 

620 GOSUB 6200 : K=1 

625 REM INTRODUCTION DES PARAMETRES 

630 GOSUB 360 

635 REM CALCUL DES VERSEMENTS 
640 GOSUB 250 
650 PR INT 

660 PRINT"LE VERSEMENT MENSUEL EST “ j TAB (25 ) 
670 PRINT US I NG" (MH*###. #0" ; P 
675 REM UN AUTRE CALCUL ? 

680 Q2$=" CALCULER" : GOSUB 3400 
690 IF NO*="N" THEN END ELSE GOTO 620 


Figure 4.3 : Liste du programme : Calcul des versements mensuels 
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BILAN D’UNE HYPOTHÈQUE 
Description 

Ce programme affiche sur l’écran le tableau correspondant au bilan 
d’une hypothèque pour l’année que vous choisissez. Prenez en compte 
le montant du prêt, le taux d’intérêt annuel, la durée de ce prêt et 
l'année pour laquelle vous voulez que le tableau soit affiché. Il vous est 
ainsi possible de retrouver rapidement, pour n’importe quelle année, le 
montant de ce que vous remboursez en intérêt et capital. L’intérêt versé I 
est déductible de l’impôt sur le revenu. 

Exemple 

L’hypothèque dont fait l’objet la maison de Samuel et de Solange est de 
480 000 F. Le taux d’intérêt annuel du prêt est de 11,5 % et la durée de , 
ce dernier de 25 ans. Samuel et Solange veulent savoir combien ils ] 
rembourseront en intérêt et capital au cours de la sixième année de leur ! 
emprunt. La Figure 4.4 donne l’affichage à l’écran pour cet exemple. La | 
liste du programme est exposée Figuré 4.5. 



Programmes de gestion immobilière 


Kl LAN D'UNE HYPOTHEQUE 


MUNTANT DE L'EMPRUNT (F) 480000.00 
TAUX D' INTERET ANNUEL (V.) 1 1 . 50 

DUREE DU PRE T < ANNEES ) 25 . 00 

ANNEE 6.00 

MOIS CAPITAL. INTERET BILAN 

61.00 494.58 4384.49 457017.00 

62.00 499. 52 4 579.75 456518.00 

65.00 504.11 4574.96456014.00 

64.00 508.94 4370.13 455505.00 

65.00 513. B1 4365.25 454991.00 

66.00 518.74 4360.33 454472.00 

67.00 523.71 4355.36 453949.00 

68.00 528.73 4350.34 453420.00 

69.00 533. BO 4345.27 452EB6.00 

70.00 538.91 4340.16 452347.00 

71.00 544.08 4334.99 451803.00 

72.00 549.29 4329.78 451254.00 


VOULEZ -VOUS 
CALCULER 

DE NOUVEAU 0 OU N ?0 


Figure. 4.4 : Affichage à l'écran : Bilan d'une hypothèque 


700 REM 

710 N*=" BILAN D'UNE HYPOTHEQUE" 

720 REM 

730 GOSUB 6200 : K=1 
735 REM PARAMETRES DU PRET 
740 GOSUB 360 
750 Q3$="ANNEE" 

760 GOSUB 6600 ! Z=PAR<4> 

770 GOSUB 250 
780 Z=l2*Z-\2 
790 GOSUB 470 

800 PRINT" MOIS CAPITAL INTERET BILAN 
810 FOR J=1 TO 11 

020 I 1=IN/12/100*M0 s P1=P-I1 : M0=M0-P1 
030 PRINT USING"tt#####.##";Z+ljPljIl|i 
PRINT" " ; : PRINT USINS"####*#. H" ; MO 
840 Z-Z+l 
050 NEXT J 

860 Q2P-" CALCULER" : GOSUB 3400 
070 IF NO*="N" THEN END ELSE GOTO 700 




Figure 4.5 : Liste du programme : Bilan d'une hypothèque 
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BILAN COURANT D’UN PRÊT 
Description 

Ce programme permet d’obtenir le bilan courant d’un prêt. Il sert à 
calculer le montant du paiement comptant qui correspondrait à la 
période de crédit écoulée depuis le début de l’emprunt. On suppose que 
tous les versements antérieurs ont été effectués dans les délais 
convenus. Vous ferez intervenir le montant de l’hypothèque, le taux de 
l’intérêt, la durée globale du prêt et le nombre des versements qui font 
l’objet du calcul de bilan. Le programme ne donnera sa réponse 
qu’après un certain délai. 

Exemple 

Le montant de l’hypothèque souscrite par Jean est de 720 000 F. Son 
prêt lui a été accordé pour 30 ans à un taux d’intérêt annuel de 9 %. Il 
désire calculer le bilan courant de son prêt à la fin de la cinquième 
année. Les Figures 4.6 et 4.7 montrent l’affichage et la liste du 
programme de bilan courant. 


Programmes de gestion immobilière 


BILAN COURANT 


MONTANT DE L'EMPRUNT '.Fl 720000.00 
TAUX D INTERET ANNUEL (X) 9.00 
DUREE DU PRET (ANNEES) 30.00 
NOMBRE DE VERSEMENTS 60.00 


VERSEMENT MENSUEL 
BILAN APRES 60 VERSMTS 


5793.31 

690335.00 


-VOULEZ -VOUS 
CALCULER 

DE NOUVEAU O OU N 70 


Figure 4.6 : Affichage à l'écran : Bilan courant 


800 REM 

090 N*="BILAN COURANT" 

900 REM 

910 GOSUB 6200 : K=1 
920 GOSUB 360 

930 Q3$=“ NOMBRE DE VERSEMENTS" 

940 GOSUB 6600 : Z=PAR(4) 

950 GOSUB 250 
960 GOSUB 470 
970 PR INT 

9B0 PR I NT " VERSEMENT MENSUEL" ; TAB (25) ; 

990 PR INT US I NG " #•(*###. (t# “ J P 

1000 PRINT"BILAN APRES ~ ; Z } " VERSMTS" ; TAB(25) ; 

1010 PRINT USING"#ttttlt##.IM)";MO 

1020 Q2*= " CALCULER " : GOSUB 3400 

1030 IF NO*="N" THEN END ELSE GOTO 000 


Figure 4.7 : Liste du programme : Bilan courant 
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REMBOURSEMENT ACCÉLÉRÉ 
Description 

Le programme concerne l’effet sur une hypothèque d’une augmentation 
du montant des versements mensuels. Cette augmentation réduira à la 
fois la durée du prêt et aussi le montant des intérêts déboursés. 

Exemple 

Sept ans après avoir contracté un emprunt d’une durée de trente ans, 
Carole envisage d’augmenter de 800 F le montant des versements 
mensuels pour son remboursement. Elle voudrait savoir quelle écono- 
mie elle réaliserait ainsi. Elle a emprunté 480 000 F à 9,75 % pour une 
durée de 30 ans. La Figure 4.8 donne la réponse : plus de 300 000 F. 



Figure 4.9 : Liste du programme : Remboursement accéléré 
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Programmes de gestion immobilière 


REMBOURSEMENT ACCELERE 


MONTANT DE L EMPRUNT (F) 480000.00 
TAUX D ' INTERET ANNUEL ('/.) 9.73 
DUREE DU PRET (ANNEES) 30.00 
ANNEE DE L'AUGMENTATION 7.00 
MONTANT DE L'AUGMENT (F) 800.00 

ANNEES DE REMBSMT 20.58 
INTERETS TOTAUX VERSES 675447.00 
GAIN SUR LES INTERETS 329138.00 


-VOULEZ -VOUS 
CALCULER 

DE NOUVEAU D0UN31 



Figure. 4.8 : Affichage à l'écran : Remboursement accéléré 


1210 REM CALCUL 
1220 T2=<) : M2=PAR(1) 

1230 FOR J=1 TO 12» AN 

1240 I2=IN/12/100«M2 : P2=P-I2 : M2=M2-P2 

1250 T2=T2+I2 

1260 NEXT J 

1270 REM CALCUL 

12BO J=0 

1290 I1=IN/12/100»M0 : TI=TI+I1 
1300 PI— P+AU— I 1 : TP=TP+P1 
1310 MO— M0-P1 
1320 J=J+1 

1330 IF MQ>0 THEN 1290 
1340 PR INT 

1350 PRINT"ANNEES DE REMBSNT" ; TAB (25) ; 
1360 PRINT USING"##ttH##.tM»“;PAR(4)+J/12-l 
1370 PRINT" INTERETS VERSES" ; TAB (25) ; 

1380 PRINT USING"(t##tt##.##“|TI 
1390 PRINT"GAIN SUR INTERETS"; TAB (25) ; 
1400 PRINT USING"#»##tttt.tHt";T2-TI 
1410 Q2*=" CALCULER" : GOSUB 3400 
1420 IF NO*="N" THEN END ELSE GOTO 1040 



Figure 4.9 : Liste du programme : Remboursement accéléré (suite) 
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CALCUL DU REMBOURSEMENT CLOBAI. 


Description 

Les hypothèques sont généralement établies de manière à pouvoir être 
levées grâce à un versement global effectué au terme d’une période 
donnée. Ce programme vous permet de calculer ce versement. Vous 
devez faire intervenir le montant du prêt, sa durée d’amortissement, le 
taux d’intérêt annuel et le nombre d’années au bout desquelles le 
versement global pourra être fait. 

Exemple 

Max a une hypothèque dont le montant est de 500 000 F avec un taux 
d’intérêt annuel de 11 %. L’amortissement de la dette est calculé sur 
30 ans et Max doit lever son hypothèque au terme d’une période de 
10 ans. Combien devra-t-il verser? Les Figures 4.10 et 4.11 montrent 
l’afTichage et la liste du programme correspondant à ce cas. 



REM 

N4=" REMBOURSEMENT GLOBAL" 

REM 

GOSUB 6200 : K= 1 
REM PARAMETRES DU PRET 
GOSUB 360 

Q3*=" ANNEE DU REMBOURSEMENT” 

GOSUB 6600 : Z=12*PAR<4> 

GOSUB 250 
GOSUB 470 
PR INT 

PR I NT ” VERSEMENT MENSUEL " ; T AB ( 25 ) ; 

PRINT USINS"t*«*tt#«. *#";P 

PRINT : PR I NT " VERSEMENT GLOBAL" 

PR INT "APRES " ; Z / 1 2 i " ANS" ; TAB (25) -, 
PRINT USING"tt#Mtt»#. *t*";MO 
024* "CALCULER " : GOSUB 3400 
IF NOt»"N“ THEN END ELSE GOTO 1430 


Figure 4.11 : Liste du programme : Calcul de remboursement global 



ACQUISITION D’UNE MAISON IP 

Description 

Ce programme permet de déterminer la somme maximale qu’une 
banque acceptera de vous prêter pour l’achat d’une maison. Pour le 
mettre en œuvre, vous ferez intervenir le taux d’intérêt annuel et la 
durée possible du prêt, votre revenu annuel, le montant annuel estimé 
des taxes et assurances, le pourcentage de votre revenu brut que la 
banque prendra en considération pour calculer le montant total de vos 
versements mensuels, et le pourcentage que représente le versement au 
comptant que vous effectuerez. 

Exemple 

Louis et Elisabeth veulent acheter une maison. Le taux d’intérêt ^ 
habituel pour les prêts immobiliers sur 30 ans est de 13,5 %. Le revenu 
annuel du couple est de 400 000 F. Ils envisagent de faire un versement 
comptant représentant 20 % du prix de la maison. Ils estiment à 
19 200 F le montant annuel des taxes et assurances. Le banquier leur 
fait savoir que le montant de chacun de leurs remboursements 
mensuels ne devra pas excéder 35 % de leur revenu. L’affichage des 
données de ce problème et du résultat obtenu se trouve Figure 4.12. La [ 
Figure 4.13 donne la liste du programme correspondant. 


Programmes de gestion immobilière 


ACHAT DUNE MAISON 




TAUX D'INTERET ANNUEL <'/.) 13.50 
DUREE DU PRET (ANNEES) 30.00 
REVENU AN DE L'ACHETEUR 400000.00 
TAXES ET ASSU ANN ESTIM 19200.00 
7. DU REVENU MENS ACCEPTE 35.00 
7. VERSE AU COMPTANT 20.00 


MONTANT DU FINANCEMENT 
PRIX 


B/8867.00 

1098580.00 


-VOULEZ -VOUS 
CALCULER 

DE NOUVEAU 0 OU N 70 


’ \ : ; "ïi- ■ ijgff ';-i ■ * .N ? 

Figure 4.12 : Affichage à l'écran : Achat d'une maison 


1600 REM 

1610 N*="ACHAT D UNE MAISON'' 

1620 REM 

1630 GOSUB 6200 : K=1 

1640 Ql*=” INTRODUISEZ LES DONNEES" : Q2*="" 

1650 Q3*="TAUX D'INT ANNUEL (7.)” : GOSUB 6600 
1660 03*= "DUREE DU PRET (ANS) " : GOSUB 6600 
1670 Q3*="REVENU/AN ACHETEUR" : GOSUB 6600 
1680 Q3*=" TAXES ET ASSU/AN" 2 GOSUB 6600 
1690 03*= "7. DU REVENU/ MOI S" l GOSUB 6600 
1700 03*= "7. VERSE AU COMPTANT" : GOSUB 6600 
1/10 PRINT 

1720 REM CALCUL DU VERSEMENT 

1730 P=PAR<5> /100»PAR(3)/12-PAR(4>/12 

1740 REM CALCUL DU MONTANT DU FINANCEMENT 

1/50 RE=PAR<I 1/100/12 : Nl-12»PAR(2> : V-l/ll+RE) 

1760 M0=P»<1-V^N1)/RE 

1770 PR INT" MONT ANT DU F I NANCEMENT " ) TAB ( 24) ) 

1780 PRINT US I NG #t»"| MO 
1790 PRINT"PRIX";TAB(24) ; 

1000 PRINT USING"(nt**#tHt.»#";M0/(l-PAR(6)/100) 

1810 Q2*=" CALCULER" s GOSUB 3400 

1820 IF NO*="N” THEN END ELSE GOTO 1600 


Figure 4.13: Liste du programme : Achat d'une maison (suite) 



HYPOTHEQUE AVEC HYPOTHEQUE 

EN SECOND RANG 'L 

Description 

Programme à utiliser pour calculer ce que coûtera au total une mais 
faisant l’objet de deux hypothèques successives. Pour cela vous prendr 
en compte le prix d’achat de la maison, la somme disponible pour utl 
versement comptant et le montant de la première hypothèque. Vou 
ferez intervenir aussi le taux d’intérêt de la première et de la second 
hypothèque et la durée de la première. Nous considérons que la second 
fait l’objet de versements mensuels calculés sur la seule base aj 
l’intérêt. 

Exemple 

Jeanne a économisé 80 000 F comme versement comptant sur le prix! 
d’une maison. La maison coûte 560 000 F; Jeanne envisage de prendre! 
une première hypothèque pour 360 000 F à 12 % d’intérêt annuel 
pendant 30 ans et une deuxième à 16 % d’intérêt. Quelle somme 
paiera-t-elle en tout? L’affichage du résultat est donné Figure 4.14 et la 
liste du programme Figure 4.15. 


iu3<j Ken 

1 840 N*- "HYPOTHEQUE EN SECOND" 

1830 REM 

1860 GOSUB 6200 : K=1 

1870 Ql*=" INTRODUCTION DES DONNEES" : Q2»= 
1880 Q3*="PRIX D'ACHAT <F> " : GOSUB 6600 


Figure 4.15: Liste du programme : Hypothèque en second 


Programmes de gestion immobilière 


hVPÜÏHEVUL EN SECOND 


PRIX D'ACHAT (F) 360000.00 
C0MP1ANT DISPONIBLE (F) 80000.00 
PREMIERE HYPOTHEQUE (F) 360000.00 
PREMIER TAUX <'/.) 12.00 
PREMIER TERME ( ANNEES > 30.00 
SECOND ! AUX (7.) 16.00 

VERSEMENT (PREMIER) 3703.01 
VERSEMENT (SECOND) 1600.00 
VERSEMENT TOTAL 5303.01 


-VOULEZ VOUS 
CALCULER 

DE NOUVEAU 0 OU N 70 


Figure 4.14: Affichage à l’écran: Hypothèque en second 


Q3$= " COMPTANT DISPONIBLE" : GOSUB 6600 
Q3F=" 1ERE HYPOTHEQUE" : GOSUB 6600 
03$=" 1ER TAUX <7.)" : GOSUB 6600 
Q3*="1ER TERME (ANNEES)" : GOSUB 6600 
Q3*="2ND TAUX (7.) " : GOSUB 6600 
PR INT 

MO=PAR (3) : IN=PAR(4> : AN=PAR(5> 

REM CALCUL DU PREMIER VERSEMENT 
GOSUB 250 

PR I NT " VERSEMENT (PREMIER) ";TAB(25> ; 

F'RINT USING"ttttlMMt#.tMt";P 
REM CALCUL DU SECOND 

IF PAR (2) <PAR( 1 ) -PAR (3) THEN GOTO 2040 
PR INT "SECONDE HYPOTHEQUE PAS NECESSAIRE" 
GOTO 2090 

PR I NT " VERSEMENT ( SECOND ) " ; T AB ( 25 ) ; 

P2= (PARI 1 > -PAR (2>-PAR(3>> «PAR (61/100/12 

PR I NT USING"4HtM#»H. »»";P2 

PR INT "VERSEMENT TOTAL "; TAB ( 25) i 

PRINT US I NG" H ttttIMM* . MH": P«P2 

Q2*=" CALCULER" : GOSUB 3400 

IF NQ$— "N" THEN END ELSE GOTO 1830 


Figure 4.15: Liste du programme : Hypothèque en second (suite) 
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ÉTUDE DE RENTABILITÉ 
Description 

Ce programme sera très utile pour l’étude de la rentabilité des 
investissements immobiliers. Vous pourrez l’utiliser pour obtenir le 
montant des versements mensuels et le produit disponible concernant 
une propriété de rapport. (Nous ne tiendrons pas compte de l’amortis- 
sement afférent au paiement des taxes.) Il vous faudra faire intervenir 
le montant du prêt et sa durée, le taux d’intérêt annuel, l’assurance, les 
taxes et les frais d’entretien. Vous devrez faire intervenir aussi le 
revenu mensuel souhaité. 

Exemple 

Hubert projette d’acheter une maison qu’il a l’intention de louer 

3 800 F par mois. La première hypothèque sera de 640 000 F amortie 
en 30 ans à 12 % d’intérêt. Il estime le coût annuel de l’assurance à 

4 000 F, les impôts fonciers à 12 800 F et les frais d’entretien à 3 200 F. 
Quel devra être le montant des versements mensuels et quel sera le 
produit disponible? Les Figures 4.16 et 4.17 donnent l’affichage à 
l’écran et la liste du programme pour cet exemple. 



Programmes de gestion immobilière 


ETUDE DE RENTABILITE 


MONTANT DE L'EMPRUNT (F) 640000.00 
TAUX D'INTERET ANNUEL <7.) 12.00 
DUREE DU PRET (ANNEES) 50.00 
ASSURANCE ANNUELLE !F> 4000.00 
IMPOTS ANNUELS (F) 12BOO.OO 
FRAIS DENT ANNUELS (F) 3200.00 
REVENU MENSUEL (F) 3000.00 


6503. 13 
4449. 79 


VERSEMENT MENSUEL 
PRODUIT DISP MENS 


VOULEZ -VOUS 
CALCULER 

DE NOUVEAU 0 OU N ?0 


Figure 4.16 : Affichage à l'écran : Étude de rentabilité 


2110 REM 

2120 N*="ETUDE DE RENTABILITE" 

2130 REM 

2140 GOSUB 6200 ! K=1 

2150 REM INTRODUCTION DES PARAMETRES 

2160 GOSUB 360 

2170 123$=" ASSURANCE/ AN (F) " : GOSUB 6600 
2180 Q3$— " IMPOTS/ AN <F>” : GOSUB 6600 
2190 Q3*="FRAIS ANNUELS <F<" : GOSUB 6600 
2200 Q3*="REVENU MENSUEL" : GOSUB 6600 
2205 REM CALCUL DU VERSEMENT 
2210 GOSUB 250 
2220 PR INT 

2230 PR INT "VERSEMENT MENSUEL" ; tAB (25) ; 

2240 PRINT USING" ##****».##": P 

2250 PRINfPRODUIT DISP MENS . " ; T AB (25) ; 

2260 PD=PAR (7) —P- (PAR ( 4 ) *PAR (5) +PAR (6) ) /12 

2270 PRINT US ING “#»###*. »*";PD 

2280 Q2*-"CALCULER" l GOSUB 3400 

2290 IF NO*="N" THEN END ELSE GOTO 2110 


Figure 4.17 : Liste du programme : Élude de rentabilité 
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CATALOGUE I)E PROGRAMMES 
DE GESTION IMMOBILIÈRE 


Comme précédemment, nous pourrons associer les programmes de ce 
chapitre pour constituer un ensemble d’analyse de gestion immobilière 
contrôlé à partir d’un catalogue. L’affichage du catalogue et la liste du 
programme correspondant sont donnés par les Figures 4.18 et 4.19. 
N’oubliez pas de remplacer l’instruction END de chaque programme 
par une instruction RETURN. La méthode à employer pour constituer 
un tel ensemble a été exposée dans le Chapitre 2. 



Programmes de gestion immobilière 


VERSEMENTS MENSUELS 
BILAN D'UNE HYPOTHEQUE 
BILAN COURANT 
REMBOURSEMENT ACCELERE 
REMBOURSEMENT GLOBAL 
ACHAT D'UNE MAISON 
HYPOTHEQUE EN SECOND 
ETUDE DE RENTABILITE 


CHOISISSEZ LE PROGRAMME 


Figure 4.18: Affichage à l'écran: Programmes de gestion immobilière 


NT— "PROGRAMMES DE GESTION IMMOBILIERE" 

REM 

GOSUB 6200 

XT ( 1 ) = " VERSEMENTS MENSUELS" 

X*(2> -"BILAN D'UNE HYPOTHEQUE" 

X*C3>=“ BILAN COURANT" 

X * < 4 ) = " REMBOURSEMENT ACCELERE " 

X f < 5 > - " REMBOURSEMENT GLOBAL" 

X* (6>="ACHAT D'UNE MAISON" 

X* (7) -"HYPOTHEQUE EN SECOND" 

x*;b)="Etude de rentabilité" 

Z -G : GOSUB 7000 

ON X GOSUB SW, 700, 390, 1040, 1430, 1600, 1830,2110 
GOTO 100 


Figure 4.19: Liste du programme : Programmes de gestion immobilière 
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PROGRAMMES 
D’ANALYSE 
DE DONNÉES 




Le Chapitre 5 décrit un ensemble de programmes d’analyse qu’on 
utilisera pour traiter et mettre sous forme graphique diverses sortes de 
données. Ces programmes permettent d'effectuer leur introduction en 
mémoire, de les traduire sur l’écran sous forme graphique, et de leur 
appliquer un traitement statistique. Le programme de traitement 
graphique pourra, après mise en œuvre des autres programmes, 
traduire de la même manière les résultats en graphes. 

Les programmes d’analyse de données seront tout particulièrement 
appréciés par les investisseurs. Les divers programmes de lissage 
serviront à atténuer les fluctuations du prix des stocks et à dégager la 
tendance à plus long terme. Ils peuvent aussi être utilisés dans divers 
autres domaines, y compris l’analyse scientifique, le tracé et le lissage 
des courbes ou le traitement des données météo. 

Pour mettre en œuvre les programmes de ce chapitre et des deux 
suivants, il vous faudra au préalable entrer en mémoire le programme 
catalogue et les sous-programmes communs additionnels. Vous devrez 
ensuite sauvegarder ces programmes en un seul fichier puis y ajouter 
les autres programmes comme indiqué dans le Chapitre 1. Les pro- 
grammes de ce chapitre commençant par le catalogue, vous n’aurez pas 
à les modifier. 
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CATALOGUE DK PROGRAMMES 
D’ANALYSE DE DONNÉES 

•Il:rr nemcnt t t0US les P ro S ran '™s dialyse de données se fait 
" l dU i mCnie i tab,eaU et eSt P rov °qué à partir du même programme 
catalogue. Le catalogue appelle la liste du programme d’entrée, celle du 

33;: ^ T CC ' le ^ différCntS P ro 8 rammes d’analyse. 

• . , 1 ? V0lonte ces programmes vous devez tout d’abord 

introduire les données en mémo.re au moyen du programme d’entrée. 
Vous pourrez alors les tra.ter graphiquement ou procéder à leur 
analyse Les données introduites sont stockées dans le champ D, alors 

L,t i~ ra, “ Par ,CS d ’»” al y« »”< 1 

Après avoir fait fonctionner chaque programme, revenez au catalo- 
gue. Il vous est alors poss.ble de faire de nouveau l’analyse avec un 
programme different; vous pouvez traiter les données d’entrée soit 

o g ;:?aZr ent V S01t ,nathémati q ueme nt ou faire d « concert les deux 
operations, ou bien vous pouvez introduire de nouvelles données. 

■a igure a. 1 donne I affichage du catalogue. La Figure 5.2 donne la 
liste du programme correspondant. 
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Programmes d'analyse de données 


INTRODUCTION DES DONNEES 
GRAPHISME 

MOYENNE ET DEVIATION STD 
MOYENNE MOBILE SUR 3 POINTS 
MOYENNE MOBILE PONDEREE 
MOYENNE CENTREE SUR 4 POINTS 
REGRESSION LINEAIRE 


CHOISISSEZ LE PROGRAMME 



- • - \\\ • V4 

Figure 5.1 : Affichage à l’écran : Programmes d'analyse de données 


REM 

Nï=" PROGRAMMES D'ANALYSE DE DONNEES" 

REM 

DIM P (80) , R (80) , D (BO) 

GOSUB 6200 

REM CONSTITUTION DU CATALOGUE 
X*<1)=" INTRODUCTION DES DONNEES" 

X*< 2) “"GRAPHISME" 

X» (3) “"MOYENNE ET DEVIATION STD" 
x*< 4) “"MOYENNE MOBILE SUR 3 POINTS" 

X*< 5) “"MOYENNE MOBILE PONDEREE" 

X* (6) “"MOYENNE CENTREE SUR 4 POINTS" 

X$ ( 7) “"REGRESSION LINEAIRE" 

Z“7 i GOSUB 7000 

ON X GOSUB 690,920,1140,1360,1560,1760,1960 
GOTO 150 


Figure 5.2: Liste du programme : Programmes d’analyse de données 




SOUS-PROGRAMMES D’ANALYSE DE DONNÉES 


Le programme graphique utilise deux sous-programmes servant à 
l’affichage sur l’écran. L’un trace les axes; l’autre les gradue et traduit 
les données en courbes. Introduisez ces programmes avant de mettre en 
œuvre le programme graphique. La Figure 5.3 donne la liste du 
sous-programme qui trace les axes. 

La Figure 5.4 donne la liste du sous-programme d’étalonnage des 
axes et de tracé des courbes. Ce programme permet d’introduire chaque 
donnée puis d’en effectuer le traitement, ou de faire ces opérations 
simultanément selon l’état de la variable CHS. 



Figure 5.3 : Liste du programme : Tracé des axes 


470 REM 

480 REM DEFINITION DES ECHELLES 

490 REM 

500 FOR 1=1 TO ND 

510 F' 1 =20- INT (20* < D ( I ) -MN) / (MX-MN) > 

520 P2=20- INT ( 20* (R ( I ï -MNÏ / (MX-MNÏ ) 

530 1F CH*< >" I “ THEN 570 

540 IF PI >20 OR PKI THEN GOTO 670 

550 LOCATE 1+6, Pt : PR I NT " * “ 

560 GOTO 650 

570 IF CH*<>"R" THEN 610 

580 IF P2>20 OR P2< 1 THEN GOTO 670 

590 LOCATE 1+6, P2 : PRINT"+" 

600 GOTO 650 

610 REM TRACE EN COMMUN 

620 IF PI >20 OR PKI OR P2>20 OR P2< 1 THEN 670 
610 LOCATE 1+6, PI : PRINT"»" 

640 LOCATE 1+6, P2 : PRINT"+” 

•5 J NEXT I 
660 RETURN 
670 ERF-1 i RETURN 
630 RETURN 


Figure 5.4: Liste du programme : Définition des échelles 




INTRODUCTION DES DONNÉES 


Description 




Vous utiliserez ce programme pour introduire en mémoire les donnée* 
que les autres programmes pourront alors analyser et transformer en 
courbes, il vous permet de prendre en compte 21 points. Les donnéeJ 
sont stockées dans le tableau D (I). Vous frapperez un D pour indiquer 
que 1 introduction est terminée. Les dix derniers points introduits au 
clavier sont affichés à l’écran, ce qui facilitera votre travail. N’oubliezj 
pas que les opérations de lissage et de traitement graphique ne peuvent! 
être pratiquées qu’à partir de données introduites au moyen du 
programme prévu pour cela. 

Exemple 

Anne-Marie veut introduire en machine les données fournies par ses 
expériences de laboratoire. Les données sont les suivantes : 


Point 1 
Donnée I 


4 5 

4 5 


8 9 10 
8 9 11 


Point 11 12 13 14 15 16 17 18 19 20 

Donnée 12 15 13 14 15 16 15 13 12 12 

Point 21 
Donnée 1 1 

La Figure 5.5 donne l’affichage et la Figure 5.6 la liste du 
programme d’introduction de données. 


Programmes d’analyse de données 


INTRODUCTION DES DONNEES 


VALEUR 

31 

? 

31 

VALEUR 

32 

? 

0 

VALEUR 

33 

? 

a 

VALEUR 

25 

*? 

8 

VALEUR 

26 

? 

7 

VALEUR 

27 

? 

5 

VALEUR 

20 

? 

5 

VALEUR 

29 

? 

4 

VALEUR 

30 

? 

3 


-INTRODUISEZ LES DONNEES DANS L ORDRE 
FRAPPEZ D APRES ACHEVEMENT 




Piqûre 5.5 : Affichage à l'écran : Introduction des données 


REM 

N*=" INTRODUCTION DES DONNEES" 

REM 

REM PREPARATION 
SOSUB 6200 

Ql*=" INTRODUISEZ LES DONNEES" 

Q2*="TAPEZ D APRES ACHEVEMENT" 

03*=“" : GOSUB 5000 

ND=0 

J=6 

FOR 1=1 TO 23 
LOCATE 10, J 
PR INT" 

LOCATE 5, J 

PR I NT" VALEUR ";I;TAB(20> 

I NF’UT D* 

IF D*="D" THEN 910 

ND-ND+1 

D ( I ) =VAL ( D* > 

J-J + l 

IF J=13 THEN J=6 

NEXT I 

RETURN 


Figure 5.6 : Liste du programme : Introduction des données 
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GRAPHISME 

Description 

Ce programme permet de traduire en courbes aussi bien les données 
brutes que les données déjà traitées (des données que vous obtiendrez 
en utilisant les programmes d’analyse qui vous sont présentés dans les 
pages suivantes). Vous commanderez au programme de mettre sous 
forme de graphes soit les données nouvellement introduites, soit les 
données traitées par le programme d’analyse, soit les deux types de 
données à la fois en répondant à l’interrogation du programme par I, T 
ou I) respectivement. Le symbole O représente les données brutes et le 
symbole + les données traitées. Vous devez aussi définir le minimum et 
le maximum de l’échelle des Y. Si les données utilisées ont des valeurs 
qui se situent hors de l’échelle ainsi fixée, le message DONNEE HORS 
ECHELLE vous sera signifié et il vous faudra redéfinir cette échelle. 
Pour revenir au catalogue, il vous suffira de frapper une touche. 

Exemple 

Traçons le graphe correspondant à l’exemple précédent. Nous fixerons 
la valeur minimum à 0 et la valeur maximum à 20. Nous choisirons 
l’option I, les données n’ayant pas été traitées, l.a Figure 5.7 donne le 
graphe affiché sur l’écran et la Figure 5. fi la liste du programme. 




Figure 5.7 : Affichage à l'écran : Graphisme 


920 REM 

930 N*=" GRAPHISME" 

940 REM 

950 Q2*=" INTRODUCTION, TRAITEMENT, LES 2" 

955 Q3*="<I T OU D) 

960 GOSUB 5000 
970 GOSUB 5400 

980 IF CH*="I" OR CH*="T" OR CH*="D" THEN 990 ELSE 970 
990 01*=“" : 02*="" 

1000 03*="CH0ISISSEZ L'ECHELLE MAX " 

1010 GOSUB 5000 : INPUT MX 

1020 Q3*= " CHO I SI SSEZ L'ECHELLE MIN " 

1030 GOSUB 5000 : INPUT MN 

1040 GOSUB 270 

1050 ERF=0 

1060 GOSUB 470 

1070 IF ERFOl THEN 1110 

10B0 Ql*“" DONNEE HORS ECHELLE" 

1090 Q2* *■ " CHO I S I SSZ A NOUVEAU" 

1100 GOTO 1000 
1110 LOCATE 1,22 

1120 PR INT "TAPE Z UNE TOUCHE POUR CONTINUER" 

1130 CH*=INKEY* : IF CH*=" " THEN 1130 ELSE RETURN 


Figure 5.8 : Liste du programme : Graphisme 
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MOYENNE ET DÉVIATION STANDARD 
Description 

Ce programme sert à calculer la moyenne et la déviation standard pour 
des données entrées en mémoire au moyen du programme d’introduc- 
tion. Pour l’utiliser, il vous suffira de le sélectionner à partir du 
catalogue. 

Exemple 

Anne-Marie veut calculer la moyenne et la déviation standard de 
données de laboratoire. Elle a mis en œuvre le programme et obtient 
l’affichage des résultats : Figure 5.9. Liste du programme : 
Figure 5.10. 



Programmes d'analyse de données 




MOYENNE Et DEVIAI ION STANDARD 


MOYENNE DES DONNEES 9.70833333 
DI-VIAt ION St ANDARD 4.1480B356 



POUR CÜNI1NUER TAPEZ UNE TOUCHE 




,Y\ IV; \ Y . UY \ V î WWW Y WWW \\U AVlY \ 


Figure 5.9 : Affichage à l'écran : Moyenne et déviation standard 


REM 

N$— "MOYENNE ET DEVIATION STD" 

REM 

GOSUB 6200 

REM CALCUL DE LA MOYENNE 
M0=0 

FOR 1=1 TO ND 
MO=MO-*-D ( I ) 

NEXT I 
MO=MO/ND 

REM CALCUL DE LA DEVIATION STD 
SD=0 

FOR 1=1 TO ND 
SD=SD+(D(I)-M0>~2 
NEXT I 

SD=(SD/ND)-'.S 

PR INT "MOYENNE DES DONNEES “ ; TAB ( 24 ) -, 

PRINT USING"#*tt*##.H#";MO 

PR INT" DE V I ATI ON STANDARD" ; TAB (24) ; 

PRINT USING"tt*#4Htl.#H";SD 

GOSUB 7400 

RETURN 


Figure 5.10 : Liste du programme : Moyenne et déviation standard 



MOYENNE MOBILE SUR TROIS POINTS 


Description 

Nous examinerons maintenant trois programmes de lissage. Le premier I 
effectue un moyennage sur trois points de données introduites dans Ifl 
tableau d’entrée. Les données ayant fait l’objet d’une telle opération do 
lissage sont stockées dans le tableau R(l). Vous pouvez en obtenir 
l’affichage soit sous forme numérique, soit sous forme graphique. Ce 
programme calcule la moyenne des données prises de trois en trois; 
chaque valeur obtenue est utilisée pour effectuer le lissage de proche en 
proche. Lorsque cette opération est effectuée, apparaît sur l’écran la 
question suivante : 

VOULEZ-VOUS AFFICHER LES DONNÉES 

Si vous répondez par O : le programme affiche les données sous 
forme numérique. Vous pourrez tracer le graphe correspondant en 
faisant appel au catalogue principal de manière à utiliser le programme 
graphique. Si vous répondez par N : vous obtenez le catalogue principal 
qui vous permet de mettre immédiatement en (ouvre le programme 
graphique. 

Exemple 

Anne-Marie veut appliquer différentes méthodes de lissage à ses 
données de laboratoire. Elle commence par utiliser le programme de 
moyennage sur trois points et. obtient le graphe affichant ensemble les 
données introduites et les données traitées. Voir le résultat du lissage 
Figure 5.11. Lorsque la donnée introduite et la donnée résultant du 
lissage sont les mêmes, un seul point figure sur le graphe. La I 
Figure 5.12 donne la liste du programme. 


Programmes d'analyse de données 



Figure .5.11 : Affichage à l'écran : Moyenne mobile sur 3 points 


REM 

N#= "MOYENNE MOBILE SUR 3 POINTS" 

REM 

GOSUB 6200 

REM ON PLACE LE RESULTAT EN R(I) 

R CI) -O : R ( 2 ) =0 : R<3)=0 
FOR 1=4 TO ND 

R < I ) = (D < I-3> +D < 1-2) +-D ( I- J ï > /3 
NEXT I 

Ql*=" VOULEZ -VOUS AFFICHER LA" 
U2#= "DONNEE (0 OU N)" 

03#="" : GOSUB 5000 
GOSUB 7800 

IF NO#="N" THEN RETURN 

CLS 

FOR 1=4 TO ND 
PRINT R ( I ) j 
NEXT I 
GQSIJB 7400 
RETURN 


Figure .5.12 : Liste du programme : Moyenne mobile sur .3 points 
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MOYENNE MOBILE PONDÉRÉE 
Description 

Une deuxième méthode de lissage consiste à calculer la moyenne 
pondérée sur trois points et de proche en proche. Le lissage des données 
est effectué en attribuant le coefficient 3 au point le plus récent, le 
coefficient 2 au précédent et le coefficient 1 au premier point introduit. 
C’est donc toujours le point le plus récemment introduit qui est affecté 
du plus fort coefficient. La mise en oeuvre de ce programme est effectuée 
à partir du catalogue; les données ainsi traitées sont stockées dans le 
tableau R(I). Comme précédemment, ces données peuvent être affichées 
sous forme numérique ou sous forme de graphe par le programme 
graphique. Notez que, lorsqu’il y a plusieurs ensembles de données, il 
n’est pas possible de les mettre simultanément en mémoire. 

Exemple 

Appliquons le programme de moyennage pondéré au traitement des 
données de laboratoire d’Anne-Marie. Figure 5.13 on trouve à la fois les 
données brutes et les données traitées en utilisant ce programme. La 
liste du programme est donnée Figure 5.14. 




REM 

N*=" MOYENNE MOBILE PONDEREE SUR 3 PTS" 

REM 

GOSUB 6200 

REM ON PLACE LE RESULTAT EN R<I) 

R ( 1 ) =0 : R (2) =0 : R(3>=0 
FOR 1=4 TO ND 

R(I)=(D(I-3)+2*D(I-2)»3*D(I-l))/6 
NEXT I 

Ql*=" VOULEZ -VOUS AFFICHER LA" 

02*=" DONNEE <0 OU N) “ 

03*="" ; GOSUB 5000 
GOSUB 7800 

IF NO*="N“ THEN RETURN 
CLS 

FOR 1=4 TO ND 
PRINT R ( I ) ; 

NEXT I 
GOSUB 7400 
RETURN 


Figure 5.14 : Liste du programme : Moyenne mobile pondérée 
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RÉGRESSION LINEAIRE 
Description 

La méthode de régression permet d’obtenir la meilleure ligne droite 
correspondant à un groupe de données. Cette ligne est celle q 
correspond le mieux au critère de régression. Le programme est mis en 
œuvre à partir du catalogue. Il utilise les données mises en mémoire au 
moyen du programme d’introduction des données. L’équation de la 
ligne droite choisie est affichée sur l’écran; son graphe sera obtenu en 
utilisant le programme de graphisme, mais il peut être légèreme 
distordu à cause de la trop faible résolution verticale de l’affichage 


Exemple 

Franck voudrait obtenir la droite de régression correspondant au 
données que l'expérimentation lui a fournies. Ces données sont les 
suivantes : 


Point 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

Donnée 

1 

2 

3 

5 

5 

6 

7 

9 

10 

11 

11 

Point 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

Donnée 

12 

13 

14 

14 

15 

16 

17 

19 

20 

21 

22 


L’affichage pour cet exemple est donné par la Figure 5.17; la liste du 
programme par la Figure 5.18. 


Programmes d'analyse de données 





Vi\nm 


Figure .5.17 : Affichage à l'écran : Régression linéaire 


REM 

N:f=" REGRESSION LINEAIRE" 

REM 

GGSUB 6200 

SX-O s SY=0 : S1=0 : S2=0 

FOR 1 = 1 TO ND 

SX=SX+I 

SY=SY»D(I) 

S1=S1+D<I>*I 
S2=S2+I*I 
NEXT I 

M— (SI— SX*SY/ND) / <S2-SX*SX/ND> 

B=SY/ND-M*SX/ND 

PRINT"Y-"jM; "X+“;B 

REM MISE A JOUR DU CHAMP RESULTAT 

FOR 1=1 TO ND 

R(I)=B+M»I 

NEXT I 

GOSUB 7400 

RETURN 


Figure 5.18 : Liste du programme : Régression linéaire 
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PROGRAMMES 
D’EXERCICES DE 
MATHÉMATIQUES 


Les trois ensembles de programmes de ce chapitre vous permettront 
d’utiliser votre ordinateur pour des exercices d’arithmétique. Chaque 
ensemble a son propre fichier et est mis en œuvre à partir d’un 
catalogue que vous devrez donc introduire au préalable. On y trouvera 
des exercices portant sur l’addition, la soustraction, la multiplication et 
la division des nombres entiers et des nombres fractionnaires. Les trois 
catalogues offrent un choix de programmes de difficulté graduée allant 
du niveau des premières classes primaires à celui de fin d'études 
secondaires. Tous ces programmes comptabilisent les bonnes et mau- 
vaises réponses. 

Une fois familiarisés avec ces programmes, enfants et adolescents 
feront de rapides progrès en arithmétique et leur travail scolaire en 
bénéficiera. 


PREMIER CATALOGUE 
D'EXERCICES DE MATHÉMATIQUES 


Le premier groupe de programmes comprend quatre types d 'exercice» 
portant sur les nombres entiers : l'addition, la soustraction, la multi-j 
plication et la division. Après l’affichage du catalogue, vous ferez votre 
choix en pressant une des touches numériques. L’ordinateur deman-l 
dera alors de fixer le plus grand nombre pouvant être utilisé; en 
fonction de cette indication, il proposera deux nombres et mentionnera] 
l’opérateur définissant le type d’exercice sélectionné. Vous introduire* 
votre réponse de gauche à droite. 

En plus du programme catalogue, deux sous-programmes communs 
devront être associés au programme principal. La Figure 6.1 donne! 
l’affichage à l’écran, et la Figure 6.2 la liste du programme catalo-ï 
gue. 


III 


Programmes d'exercices de mathématiques 



ADD1 1 ION 
SOUSTRACTION 
MULTIPLICATION 
DIVISION 


CHOISISSEZ LE PROGRAMME 


Figure 6.1 : Affichage de l'écran : Exercices de mathématiques / 


100 REM 

110 NT^" EXERCICES DE MATHEMATIQUE I 

120 REM 

130 BOSUB 6200 
140 K=1 

150 Xï ( 1 > =" ADDITION" 

160 X*(2)-"S0USTRACTI0N" 

170 X$ (3 > ="MULTIPLICAT I ON” 

100 X*<4>="DIVISI0N" 

190 Z=4 : GOSUB 7000 
200 R=0 : W=0 

210 Q1*="QUEL EST LE PLUS GRAND NOMBRE 
220 Q2*="QUE VOUS DESIREZ" 

230 03$=" UTILISER" 

240 GOSUB 5000 
250 PR INT TAB (20> s INPUT Y 
260 ON X GOSUB 500, 620, 770, B90 
270 GOTO 100 


I 


Figure 6.2 : Liste du programme : Exercices de mathématiques 1 





SOUS-PROGRAMMES 
D’EXERCICES DE MATHÉMATIQUES 


112 


Ces deux sous-programmes servent à afficher les questions et les 
réponses. Ils doivent être introduits avant les programmes d’exercices 
et ont pour objet de les raccourcir. Ils génèrent de manière aléatoire les 
nombres proposés pour les calculs et tiennent la comptabilité des 
résultats. Leurs listes se trouvent Figure 6.3. 
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Programmes d’exercices de mathématiques 


REM 

REM QUESTION ET REPONSE 

REM 

LOCATE 20,5 ! PRINT USING" »###" s NI 

LOCATE 19,6 : PRINT SN»s : PRINT USINE"#*#»' - J N2 

LOCATE 20,7 : PRINT" " 

PRINT" REPONSE "j 

INPUT A 

PRINT"LA REPONSE CORRECTE EST s " j 
RETURN 

REM 

REM BILAN DE L’EXERCICE 

REM 

PRINT : PRINT"VOUS AVEZ " 

IF S=1 THEN PR INT "RAI SON" ELSE PRINT" TORT" 

IF S=1 THEN R=R«-1 ELSE W=W*1 
PR INT "PROBLEMES" ; T AB (20 ) ; R*-W 
PR INT "CORRECTS" ; T AB (20) ; R 
PRINT "ERREURS" ; TAB (20) i W 
Q2*="VQUS EXERCER" : GOSUB 3400 
RETURN 


Figure 6.3 : Sous-programmes d’exercices de mathématiques 
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ADDITION 

Description 

Pour chaque exercice portant sur l’addition, deux nombres pris au 
hasard vous seront donnés. Le résultat de l’opération devra être entré 
de gauche à droite, ce qui veut dire qu’il faudra au préalable l’inscrire 
sur une feuille de papier. Le programme tient compte du nombre 
maximum que vous avez vous-même fixé. 


Exemple 

Sur la Figure 6.4 apparaît le résultat correct de l’addition des nombres 
5 et 4. La liste du programme d’addition est donnée par la 
Figure 6.5. 
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REPONSE “ 7 

LA REPONSE CORRECTE ESI : 


VOUS AVEZ 

RAISON 

PROBLEMES 

CORRECTS 

ERREURS 


VOULEZ -VOUS 

VOUS EXERCER 

UE NOUVEAU O OU N 70 


ic à l’écran : Exercices d'addition 


500 REM — 

310 N*="EXERCICE 0 ' AT 

520 REM 

530 GOSUB 6200 
540 N 1 = I NT < RND ( Y ) #Y > 
550 N2—INT (RND CY) *Y) 
560 GN*=''*-" 

570 GOSUB 200 
580 ir A— N 1 PN2 THEN ! 
5V0 PR INT USINO''Htl!*tt 
395 REM B I LAN DE L E 
600 GOSUB 380 
610 IF NO*“"N 


THEN RETURN ELSE 530 


Figure 6.5 : Liste du programme ; Exercices d'addition 
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SOUSTRACTION 

Description 

L’exercice de soustraction ressemble à l’exercice d’addition. Le choix 
des nombres destinés à faire l’objet du calcul est tel que la réponse est 
toujours de signe positif. 

Exemple 

L’affichage de la Figure 6.6 donne le résultat correct de la soustraction 
posée. La Figure 6.7 donne la liste du programme de soustraction. 



620 REM 

630 NT—" EXERCICE DE SOUSTRACTION" 

640 REM 

650 GOSUB 6200 
660 NI -INT (RND (Y) »Y > 

670 N2=INT (RND(Y) «Ÿ> 

6B0 N3-N1 

670 IF IM1>N2 GOTO 710 
700 N1=N2 : N2=N3 
710 SNT'-"--" 

720 GOSUB 280 

730 IF A=N1-N2 THEN S=1 CLSE S=0 
740 PRINT USING"#*tt#":Nl-N2 
745 REM BILAN DE L ’ EXERCICE 
7S0 GOSUB 380 

760 IF NÜ*-"N" THEN RETURN ELUE 620 
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EXERCICE DE SOUSTRACTION 


REPONSE ? 1 

LA REPONSE CORRECTE EST 

VOUS AVEZ 
RAISON 

PROBLEMES 1 

CORRECTS 1 

ERREURS O 


-VOULEZ -VOUS 
VOUS EXERCER 
DE NOUVEAU 0 OU N ?0 


Figure 6.6 : Affichage à l'écran : Exercices de soustraction 


Figure 6.7 : Liste du programme : Exercices de soustraction 
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MULTIPLICATION 

Description 

Deux nombres vous sont donnés et il s’agit de multiplier l’un par 
l’autre. Le plus grand ne peut dépasser la limite que vous avez fixée. Le 
programme affiche la réponse sur une seule ligne. Si le multiplicateur 
comprend plusieurs chiffres, vous pourrez utiliser le programme de 
multiplication de grands nombres figurant plus loin dans ce chapitre. 
Ce programme affiche les opérations intermédiaires qui sont dans ce 
cas nécessaires. 

Exemple 

La Figure 6.8 donne l’affichage de la multiplication de 7 par 6. La 
Figure 6.9 est la liste du programme de multiplication. 
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EXERCICE DE MULTIPLICATION 


REPONSE ? 42 

LA REPONSE CORRECTE EST 

VOUS AVEZ 
RAISON 

PROBLEMES 1 

CORRECTS 1 

ERREURS O 


VOULEZ -VOUS 

VOUS EXERCER 

l)E NOUVEAU O OU N ?ü 


Figure 6.8 : Affichage à l’écran : Exercices de multiplication 


770 REM 

7B0 N£='' EXERCICE DE MULTIPLICATION" 

790 REM 

SCO OL’SUS 6200 
010 N1 = INT (RND(Y) »Y) 

S20 N2=INT(RND<Y)*Y> 

330 3N*="X" 

040 EQSUB 230 

850 IF A=N1«N2 THEN S=1 ELSL 3=0 
860 PRINT USING"####" -, N1«N2 
870 BOSLffi 380 

830 IF NO*="N" THEN REVURN ELSE 770 


Figure 6.9 : Liste du programme : Exercices de multiplication 
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DIVISION 

Description 

Division d’un nombre entier par un autre nombre entier. Fixez la 
limite supérieure que peut atteindre le dividende lors de l’appel au 
programme catalogue. Le programme choisit deux nombres de manière 
à ce que le résultat soit toujours un nombre entier. Le nombre le plus 
grand susceptible d’être obtenu comme réponse ne saurait évidemment 
dépasser le nombre limite choisi au départ. 

Exemple 

La Figure 6.10 donne le résultat de la division de 4331 par 61. La liste 
du programme de division est donnée par la Figure 6.11. 



Programmes d'exercices de mathématiques 


XERCICE UE DIVISION 


REPONSE ? 'I 

LA REPONSE CORRECTE EST 


VOUS AVEZ 
RAISON 
PRORI EUES 
CORRECTS 
ERREURS 


VOULEZ-VOUS 

VOUS EXERCER 

DE NOUVEAU O OU N ?0 




ligure 6.10 : Affichage à l'écran : Exercices de division 


090 REM 

900 NT=" EXERCICE DE DIVISION" 

910 REM 

920 GOSUB 6200 
930 NI = INT (RND (Y) #Y> 

940 N2=INT<RNDCY)*Y) 

950 N1=N1»N2 
960 SN*="/" 

970 GOSUB 280 

980 IF A=N1/N2 THEN S= 1 ELSE 5=0 
990 PRINT USING"4#H#";N1/N2 
995 REM BILAN DE L'EXERCICE 
ÎOOO GOSUB 380 

1010 IF NQ*="N" THEN RETURN ELSE 890 


Figure 6.11 : Liste du programme : Exercices de division 
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DEUXIÈME CATALOGUE 
D'EXERCICES DE MATHÉMATIQUES 

Ce deuxième catalogue comporte deux programmes. Le premier permet 
de s exercer à I addition de nombres disposés en colonne; le second 
d’effectuer la multiplication de grands nombres en affichant les 
opérations intermédiaires. Pour chacun de ces exercices, il est recom- 
mandé de se munir d’une feuille de papier et d’un crayon afin de noter 
les résultats avant de les introduire en machine. La Figure 6.12 donne 
1 affichage du catalogue et la Figure 6.13 la liste du programme 
correspondant. 


Programmes d'exercices de mathématiques 



Figure 6.12 : Affichage à l’écran : Exercices de mathématiques II 


ÎOO REM 

110 N$=" EXERCICES DE MATHEMATIQUE II" 

120 REM 

130 GOSUB 6200 
140 K=1 

150 X*<1)-"ADDITI0N EN COLONNE" 

160 X $ ( 2 > = " MUL T I PL I CA T I ON DE GRANDS NOMBRES" 
170 REM PREPARATION ET AFFICHAGE DU CATALOGUE 
ISO Z=2 : GOSUB 7000 
190 ON X GOSUB 210,500 
200 GOTO 100 


Figure 6.13 : Liste du programme : Exercices de mathématiques II 
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ADDITION EN COLONNE 
Description 

Ce programme propose l’addition de nombres disposés en colonne. 
Vous le sélectionnez à partir du catalogue en pressant la touche portant 
le chiffre 1. Vous déciderez combien de nombres vous voulez addition- 
ner et vous fixerez la valeur limite du plus grand nombre. Les réponses 
correctes et incorrectes seront comptabilisées. 

Exemple 

La Figure 6.14 donne le résultat correct de l’addition des cinq nombres 
47, 41, 1, 34, 13 et la Figure 6.15 la liste du programme. 



Figure 6.15 : Liste du programme : Addition en colonne 
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WÊÊSBBÊÊHttÊÊÊBBBBBÊÊÊÊÊÊÊÊtÊÊÊÊÈ 


ADDITON EN COLONNE 


VOTRE REPONSE 

REPONSE CORRECTE 
VOUS AVEZ RAISON 
NOMBRE D'EXERCICES 
REP. CORRECTES 
REP. ERRONEES 


-VOULEZ-VOUS 
ADDITIONNER 
DE NOUVEAU 0 OU N ?0 


m . «i 

Figure 6.14 : Affichage à l'écran : Addition en colonne 



>10 0C1SUB 6200 
I SO t r=o 

'560 FOR 1 = 1 TO NU 
570 N1=INT(RNDCLS)»LG) 

380 T T=TT +N 1 
390 FR1NT IAB(20>; 

400 PR INT US ING" ######"; NI 
410 NEXT I 

420 PR J NT TAB 1 20) ; " — “ 

430 PRINT" VOTRE REPONSE” ; TAB (20) 

440 INPUT A 
450 PRINT 

460 PRINT "REPONSE CORREC TE" ; T AB (20) 

470 PRINT USING"######"; TT 

480 IF rr=A THEN S=1 ELSE S=0 

490 P’R INT "VOUS AVEZ 

500 IF S=1 THEN R=R*1 ELSE W=W*-1 

510 IF S“l THEN PRINT-RAISOM" ELSE PRINT”TORT" 

530 PR INT "NOMBRE D EXERCICES" : TAB (20) ; R+W 

540 PR INT "REP. CORRECTES" ; TAB (20) ; R 

550 PR INI" REP. ERRONEES" ; TAB i20) ;W 

560 Q2»="ADDI riüNNER" : GOSUB 3400 

570 IF Ntl*“"N" THEN RETURN ELSE 340 


Figure 6.15 : Liste du programme : Addition en colonne (suite) 
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MULTIPLICATION DE GRANDS NOMBRES 
Description 

Le programme constitue un excellent outil pour l’entraînement à la 
multiplication de grands nombres. On le choisit à partir du catalogue 
en pressant la touche 2. Vous devez aussi indiquer combien de chiffres 
doivent avoir les facteurs à multiplier. Deux nombres vous seront alors 
proposés, vous effectuerez leur multiplication et donnerez la réponse à 
l’ordinateur. La réponse correcte sera affichée ainsi que les étapes 
intermédiaires du calcul ce qui vous permettra de retrouver plus 
facilement les erreurs éventuelles. 

Exemple 

La Figure 6.16 donne le résultat de la multiplication de 9 105 par 4 645 
et la Figure 6.17 la liste du programme. 



Figure 6.17 : Liste du programme : Multiplication de grands nombres 
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MULTIPLICATION DE GRANDS NOMBRES 


9105 

4645 


DONNEZ VOTRE REPONSE 


VOUS AVEZ (ÛRT 


VOULEZ-VOUS 
MIJLT I PL 1ER 
ÜC NOUVEAU 0 OU N 


Figure 6.16 : Affichage à l'écran : Multiplication de grands nombres 


690 FOR 1=0 TO Z-l 

700 NI <I>=INT(RND<Z>*10> : N1=N1 EN1 (I) 

'10 N2 < 1 ) = INT (RND(Z)*10î : N2-N2+N2 ( I ) *10''I 
720 NEXT I 

730 PRINT T AB (20) : PRINT USING"##########" ; NI 
740 PRINT T AB < 20 ) : PRINT USIN6 -, ####tt#tt###";N2 

750 PRINT T AB <20> ; " " 

760 LOCATE 1,16 

770 PRINT "DONNEZ VOTRE REPONSE 

780 INPUT A 

790 LOCATE 1,6 

800 FOR 1=0 TO Z-l 

810 PRINT T AB (20) 

815 PRINT USING"»####»####";N1«N2(I)»10^I 
820 NEXT I 

830 PRINT T AB (20) ; " " 

840 PRINT T AB < 20 > : PRINT USING" " ; NI *N2 
845 PRINT 

850 LOCATE 1,18 i PR INT "VOUS AVEZ 

B60 IF N1*N2=A THEN S- 1 ELSE S-0 

870 IF S=1 THEN PRINT"RAISON" ELSE PR INT" TORT" 

890 02*= " MIJLT I PL 1ER" : GOSUB 3400 
900 fF NO*="N" THEN RETURN ELSE 670 


Figure 6.17 : Liste du programme : Multiplication de grands nombres (suite) 
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TROISIÈME CATALOGUE 
D’EXERCICES DE MATHÉMATIQUES 

Ce dernier catalogue concerne l’addition, la soustraction, la multipli- 
cation et la division de fractions. Le résultat sera calculé par réduction 
des fractions au plus petit dénominateur commun et donne sous cette 
forme sans transformation en nombre fractionnaire. Les bonnes et les 
mauvaises réponses sont comptabilisées. 

Les quatre programmes de calcul sur les fractions travaillent à partir 
d’un même catalogue. La Figure 6.18 donne l’énoncé de ce catalogue et 
la Figure 6.19 le programme correspondant. 
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ADDITION 

SOUSTRACTION 

MULTIPLICATION 

DIVISION 


CHOISISSEZ LE PROGRAMME : 


Figure 6.18 : Affichage à l'écran : Exercices de mathématiques III 


100 REM 

ilO N 'P— "EXERCICES UE MATHEMATIQUES III" 

120 REM 

130 DEFINIT D--Z 
140 GOSUB 6200 
ISO K = 1 

1 60 Xi ( 1 ) -■ 11 ADDITION" 

170 X t (2) “"SOUSTRACTION" 

ISO X* (3) “"MULTIPLICATION" 

190 X* (4) ="DI VISION" 

200 Z -4 : GOSUB 7000 
210 R=0 : W=0 

220 01$-" QUEL. EST LE PLUS GRAND DEN0M1NAÏ 
230 02$= "SUR LEQUEL" 

240 U3*="VÜUS DESIREZ TRAVAILLER" 

245 REM UN POSE LA QUESTION 

250 GOSUB 3000 

260 PR INT T AO <24> : INPUT V 

270 ON X GOSUB 810,930,1100,1240 

280 GOTO 100 


Figure 6.19: Liste du programme : Exercices de mathématiques III 





SOUS-PROGRAMMES DE FRACTIONS 




Avant toute mise en œuvre des programmes, introduire en mémoire le 
sous-programmes de la Figure 6.20. Ils proposeront les fractions, Il 
dénominateur commun, commanderont l’affichage de la question etj 
l’impression de la réponse. 

Ces sous-programmes font appel à un générateur de nombr 
aléatoires pour déterminer les numérateurs et les dénominateur 
L’affichage sur l’écran est effectué sous forme de fractions comme 1 
montre l’exemple suivant : 

4 5 

+ 

5 6 

Pour formuler votre réponse, vous devrez énoncer séparément le 
numérateur et le dénominateur. 




/.'// 
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iOO REM SS-PROGRAMME PRODUISANT NUMERATEURS ET DENOMINATEURS 

.510 REM 

I 330 N 1 = I NT ( RND < Y ) * Y > : IF Nl=û THEN 330 
[ 340 N2=IN7<RNIHY>*Y> : IF N2=0 THEN 340 
F 330 D 1*1 NT (RND (Y) *Y) : IF D1=0 THEN 350 
360 D2=1NTCRND(Y>*Y> : IF D2=0 THEN 360 
365 REM ON S’ASSURE D’UN RESULTAT POSITIF 
3/0 IF N1/D1>=N2/D2 THEN 400 
5B0 N3=N2 : N2=N1 : N1=N3 
390 D3=D2 : D2=D1 : DI =03 
400 RETURN 

420 REM SS-PROGRAMME DE RECHERCHE DU DENOMINATEUR COMMUN 

430 REM 

440 U=N3 : V=D3 
450 G=U~V* I NT ( U/ V ) 

460 IF G=0 THEN RETURN 

470 U=V 

4G0 V=G 

490 GOTO 450 

510 REM AFFICHAGE DE LA QUESTION, DONNER LA REPONSE 

| 520 REM 

530 LOCATE 20,3 

540 PRINT USING"#«tt ";N1;N2 

550 LOCATE 20,4 

560 PRINT" ";SN*;" " 

570 LOCATE 20,5 

5B0 PRINT USING"#tHt "îD1;D2 

590 PRINT" INTRODUISEZ LE NUMERATEUR "s 

600 INPUT AN 

610 PRINT” INTRODUISEZ LE DENOMINATEUR 
620 INPUT AD 

630 PRINT : PR INT "LA REPONSE CORRECTE EST : " 

640 RETURN 

650 REM 

660 REM BILAN DE L’EXERCICE 

670 REM 

630 PRINT T AB < 24 > ; : PRINT US ING"###" ; Nj 
690 PRINT TAB<24>;” “ 

700 PRINT T A3 <24 ) ; : PRINT USING"###" ; D3 
710 IF AN=N3 AND ÀD=D3 THEN S=î ELSE S=0 
720 PRINT : PRINT"VüüS AVEZ 

730 IF S=1 THEN PRINT’RAISON" ELSE PR INT’ "TORT" 

735 REM VERDICT 

740 1F S=1 THEN R=R*1 ELSE W=Wfl 
60 PR INT “NOMBRE D EXERCICES" ; TAS (20) ; R+W 
770 PRINT "REP. CORRECTES" ; T AB < 20) ; R 
780 PR INT” REP. ERRONNEES” ; T AB (20) ; W 
790 02*-” CALCULER" : GOSUB 3400 
800 RETURN 


Figure 6.20 : Sous-programmes d'exercices de calculs de fractions 
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ADDITION DE FRACTIONS 


Description 


i 


Ce programme permet d’additionner deux fractions. On le sélection 
nera à partir du catalogue en pressant la touche 1. On spécifiera que 
est le plus grand dénominateur sur lequel on veut travailler. 


Exemple 


La Figure 6.21 donne le résultat de l’addition 1/1 + 1/1. La liste du 
programme correspondant à ce type d’exercices est donnée par la 
Figure 6.22. 
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EXERCICE D'ADDITION 


INTRODUISEZ LE NUMERATEUR ? 1 
INTRODUISEZ LE DENOMINATEUR ? 1 


VOUS AVEZ TORT 
NOMBRE D EXERCICES 
RER. CORRECTES 
REP. ERRONEES 


VOULEZ-VOUS 

CALCULER 

DE NOUVEAU O OU N 70 


Piqûre 6.21 : Affichage à l'écran : Exercices d'addition 


BIO REM 

820 N*-"EXERCiCE 0 ADDITION" 

830 REM 

840 GOSUB 6200 

045 REM NUMERATEUR ET DENOMINATEUR 

850 GOSUB 290 

860 SN't= 11 

870 GOSUB 500 

8B0 N3=D2»Nl>Di»N2 

890 D3=D1*D2 

900 REM DENOMINATEUR COMMUN 
910 GOSUB 410 
920 N3=N3/V ! D3=D3/V 
925 REM BILAN 
930 GOSUB 650 

940 IF ND*- "N" THEN RETURN ELUE 840 


Figure 6.22 : Liste du programme : Exercices d'addition 
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SOUSTRACTION DU FRACTIONS 
Description 

On sélectionnera ce programme à partir du catalogue en frappant la 
touche 2 et il faudra, là encore, préciser la valeur du plus grand 
dénominateur à utiliser. Comme pour le programme de soustraction du 
premier catalogue, les nombres seront choisis de manière que le 
résultat soit toujours de signe positif. 

Exemple 

La Figure 6.23 donne le résultat de l’opération 2/1 - 1/2 et la Figure 
6.24 la liste du programme permettant de réaliser ce type d’opéra- 
tion. 


135 Programmes d’exercices de mathématiques 



Figure 6.23 : Affichage à l'écran : Exercices de soustraction 


950 REM 

960 Ni ■=" EXERCICE DE SOUSTRACTION” 

970 REM 

980 GOSUB 6200 
990 GOSUB 290 
1000 N3=D2*N1-D1*N2 
1010 IF N3=0 THEN 990 
1020 SNi="-“ 

1030 GOSUB 500 
1040 D3— D1*D2 

1050 REM DENOMINATEUR COMMUN 
1060 GOSUB 410 
1070 N3=N3/V : D3=D3/V 
1080 GOSUB 650 

1090 IF NOi= "N” THEN RETURN ELSE 950 


Figure 6.24 : Liste du programme : Exercices de soustraction 
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MULTIPLICATION DE FRACTIONS 
Description 

Ce programme permet la multiplication de deux fractions. On le 
sélectionne en frappant la touche 3. Il est très facile à mettre en 
œuvre. 


Exemple 

La Figure 6.25 donne le résultat de la multiplication des fractions 2/2 
et 2/3. La liste du programme de multiplication de fractions est donnée 
par la Figure 6.26. 
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EXERCICE JE MUL f iPt-ICATlUN 


INTRODUISEZ LE NUMERATEUR 
INTRODUISEZ LE DENOMINATEUR 


LA REPONSE CORRECTE EST 


VOUS AVEZ TORÎ 
NOMBRE .) EXERCICES 
REP. CORRECTES 
R2P. ERRONEES 


VOULEZ -VOUS 
CALCULER 

OE NOUVEAU O OU N "O 


Figure 6.25 : Affichage à l'écran : Exercices de multiplication 


1 100 REM 

1110 ;«=" EXERCICE DE MULTIPLICATION" 

1 120 REM 

1 1 30 GCISUB 6200 

1135 REH NUMERATEUR ET DENOMINATEUR 
1 1 40 GOSUB 290 
1150 SNÎ— " X " 

1 1 60 GÜSUB 500 
1170 N3=N1*N2 
1100 D3=D1*D2 

1190 REM DENOMINATEUR COMMUN 
1200 GOSUB 410 
: 2 10 N3-N3/V : D3=D3/V 
1215 REM BILAN 
1220 GOSUB 650 

1230 IF NO*- "N" T-iEN RETURN ILSE 1100 


Figure 6.26 : Liste du programme : Exercices de multiplication 
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DIVISION DE FRACTIONS 
Description 

Programme sélectionné à partir du catalogue en frappant la touche 4. Il 
ramène au programme précédent puisqu’on multiplie la fraction 
dividende par la fraction diviseur inversée. 

Exemple 

L’affichage à l’écran de la division de 3/1 par 4/3 est donné par la 
Figure 6.27 et la liste du programme de division de fractions par la 
Figure 6.28. 
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exercice: de division 


INTRODUISEZ LE NUMERATEUR 
INTRODUISEZ LE DEMON INA f EUR 


A REPONSE CORRECTE t'ST 


VOUS AVEZ TORT 
NOMBRl D'EXERCICES 
REP. CORRECTES 
REP. ERRONEES 


VOULEZ VOUS 
CALCULER 

DF. NOUVEAU O OU N ?Q 


Figure 6.27 : Affichage à l'écran : Exercices de division 


1240 REM 

1250 NT- -"EXERCICE DE DIVISION" 

1260 REM 

1270 GOSUB 6200 

1275 REM NUMERATEUR ET DENOMINATEUR 
12S0 GQSUB 290 
1290 N3=N1*N2 
17-00 D3=D1»N2 

<310 REM DENOMINATEUR COMMUN 
1320 GOSUB 410 
1330 N3=N3/V : 03=D3/V 
1340 5NT="/" 

1350 BOSUHl 500 
1360 GOSUB 650 
1365 REM BILAN 

1370 IF NO»="N" THEN RETURN ELGE 1240 


Figure 6.28 : Liste du programme : Exercices de division 
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ANNEXE A 


SOUS-PROGRAMMES 

GÉNÉRAUX 


A l’aide des sous-programmes figurant ici, on pourra aisément 
concevoir des programmes courts et donc faciles à introduire en 
mémoire. Les lecteurs intéressés par les possibilités qu’offrent ces 
sous-programmes consulteront l’Annexe B qui montre comment ils 
peuvent être utilisés dans d’autres applications. 

Cette annexe contient les listes des sous-programmes généraux 
utilisés au cours du livre; elles comportent de nombreux commentaires 
destinés à faciliter leur compréhension. 

En les sauvegardant ensemble en un même fichier, vous éviterez 
d’avoir à les retaper plusieurs fois. Associez ces sous-programmes à vos 
programmes d’application ainsi qu’il a été indiqué au cours du 
Chapitre 1. Et souvenez-vous que seule la première instruction REM est 
à conserver dans chaque sous-programme. 
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REH "UNAU" 

REM 

REH DEMANDE D'UN AUTRE CYCLE 
REM 

REM CE PROGRAMME DEMANDE A L'UTILISATEUR 
REM S'IL VEUT CONTINUER 
REH APPEL DES PARAMETRES 

REM Q2*=CHAINE DE CARACTERES DEFINISSANT LES OPERA! IONS 
REM 

REM PARAMETRES INTRODUITS EN REPONSE 
REM NOt—UN "O" OU UN "N" POUR OUI OU NON 
REM 

REM 

Qli=" VOULEZ- -VOUS" 

Ü3*= " DE NOUVEAU 0 OU N ?" 

GOSUB 5000 
GOSUB 7800 
RETURN 


Figure A.l : Sous-programme permettant de recommencer à faire fonction 
ncr un programme 

5000 REM "DIALOGUE" 

5001 REM 

5004 REM APPEL DES PARAMETRES : 

5005 REM EU*, 02*, Q3* - PARAMETRES A AFFICHER 

5006 REM 

5007 REM PARAMETRES INTRODUITS EN REPONSE : 

5008 REM AUCUN 

5009 REM 

5010 REM COMMENTAIRES : LES CHAINES DE CARACTERES 

5011 REM CORRESPONDANT A DES QUESTIONS NON POSEES 

5012 REM DOIVENT ETRE CONSIDEREES COMME NULLES 

5013 REM 

5020 FOR 1-19 TO 22 

5030 LOCATE 0,1 

5040 IF I>19 THEN 5080 

5045 REM TRACE D'UNE BORDURE 

5050 FOR J=0 TO 36 

5060 PR INT"—" ; 

5070 NEXT J 

5080 IF 1=20 THEN PRINT 01»; 

5090 IF 1=21 THEN PRINT 02*; 

5100 IF 1=22 THEN PRINT 03*; 

5109 REM ON RAMENE LE CURSEUR APRES LA 3EME QUESTION 

5110 Cl-PDSCN) 

5115 REM CURSEUR EN POSITION COLONNE 

5120 C2—P0S (NI 

5130 IF C2>35 THEN 5150 

5135 REMM EFFACEMENT DES INFOS ANTERIEURES 
5140 PRINT" "; : GOTO 5120 

5149 REM ON RAMENE LE CURSEUR POUR INTRODUIRE LES REPONSES 

5150 LOCATE C1,I 
5160 NEXT I 
5170 RETURN 


S 


Figure A. 2 : Sous-programme de dialogue 
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Annexe A 


5400 REM "INTCAR" 

5401 REM 

5402 REM INTRODUCTION DE CARACTERES 

5403 REM 

5404 REM APPEL DES PARAMETRES ! 

5405 REM AUCUN 

5406 REM 

5407 REM PARAMETRES INTRODUITS EN REPONSE : 

5408 REM CH*= INTRODUCTION DE CARACTERE 

5409 REM 

5410 REM 

5420 REM ATTENTE DE L'INTRODUCTION D'UN CARACTERE 
5430 CH*=INKEY* : IF CHf="" THEN 5430 
5480 RETURN 


Figure A.3 : Sous-programme d'introduction de caractères 


REM "INI DON" 

REM 

REM INTRODUCTION DES DONNEES 
REM 

REM APPEL DES PARAMETRES : 

REM 01*, Q2*= INS TRUC T IONS POUR L'UTILISATEUR 
REM Û3*=N0M DE LA DONNEE 


REM PARAMETRES INTRODUITS EN REPONSE : 

REM P* (K) -CHAMP RESERVE AUX DONNEES 
REM 

REM COMMENTAIRES : ON INTRODUIT UNE DONNEE 

REM A LA FOIS, LE PREMIER APPEL EST ASSOCIE A K=1 

REM LA VALEUR DE P AUGMENTE AUTOMATIQUEMENT 

REM 

REM 

REM QUESTIONS 
GOSUB 5000 
REM DONNEES 
INPUT P* CK) 

REM QUESTIONS EN ECHO ET REPONSE 

LOCATE 3,K+2 

PRINT 03*; TABC25) ;P* (K) 

REM INCREMENTATION DE L'INDEX 

K-K + l 

RETURN 

Figure A.4 : Sous-programme d'introduction de données 
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6200 REM "PREP" 

6201 REM 

6202 REM PREPARATION DE L'AFFICHAGE 

6203 REM 

6204 REM CE SS PROGRAMME VIDE L'ECRAN 

6205 REM ET AFFICHE LE TITRE DU PROGRAMME 

6206 REM APPEL DES PARAMETRES : 

6207 REM N*=TITRE DU PROGRAMME 

6208 REM 

6209 REM PARAMETRES INTRODUITS EN REPONSE s 

6210 REM AUCUN 

6211 REM 

6212 REM 

6215 REM ECRAN VIDE 

6220 CLS 
6225 REM TITRE 
6230 PR INT N* : PR INT 
6250 RETURN 


Figure A.5 : Sous-programme de préparation et d'affichage 


6600 

6601 

6602 

6603 

6604 

6605 

6606 

6607 

6608 

6609 

6610 
661 1 
66 1 2 

6613 

6614 
co 15 
: 620 
6625 
6û3C 
i 640 
6650 
666 > 
66 70 
66*30 
6690 


REM "INTF'AR" 

REM 

REM INTRODUCTION DES PARAMETRES 
REM 

APPEL DES PARAMETRES 

REM GIT, Q2I= INSTRUCTIONS POUR L'UTILISATEUR 

REM G3T=N0M DE LA DONNEE 

REM 

REM PARAMETRES INTRODUITS EN REPONSE 

REM PAR <K> -DONNEE OBTENUE 

REM 

REM COMMENTAIRES : LE PREMIER APPEL EST 

REM ASSOCIE A K=i, LA VALEUR DE K AUGMENTE AUTOMATIQUEMENT 

REM 

REM 

REM QUESTIONS 
GOSUB 5000 

REM INTRODUCTION DES DONNEES 
IMPOT PARI K) 

REM QUESTION EN ECHO ET REPONSE 
LÛCATE 3.K+2 
PR INT Q3*j TABI25» ; 

PRINT US ING"4«W*MMt . ; PAR (K) 

K -KM 
RETURN 


Figure A. 6 : Sous-programme d'introduction de paramètres 
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7000 REM "CATALOGUE" 

7001 REM 

7002 REM PROGRAMME CATALOGUE 

7003 REM 

7004 REM CE PROGRAMME AFFICHE UN CATALOGUE 

7005 REM ET PERMET DE CHOISIR UN PROGRAMME 

7006 REM APPEL DES PARAMETRES : 

7007 REM 2 -NO. DES PROGRAMMES 

7008 REM X* < I > -CHAMP DU NOM DES PROGRAMMES 

7009 REM 

7010 REM PARAMETRES INTRODUITS EN REPONSE : 

7011 REM X-NUMERO DU PROGRAMME CHOISI 

7012 REM 

7013 REM 

7020 CLS 

7025 REM AFFICHAGE DU CATALOGUE 
7030 FOR 1-1 TO 2 

7040 IF 1=10 THEN PRINT 0:ELSE PRINT I; 

7050 PRINT"- “ 5 X*U> 

7060 NEXT I 

7070 Ql*="" l Q2*="" 

7080 Q3*="CH0ISISS£2 LE PROGRAMME : " 

7085 REM QUESTIONS 
7090 GOSUB 5000 

7095 REM INTRODUCTION DE CARACTERE 
7100 BOSUB 5400 
7110 X-VALICH*) 

7119 REM VOIR SI LE CARACTERE EST DANS LA GAMME 

7120 IF X>"1 AND X<=2 THEN RETURN 

7130 IF X-0 AND 2=10 THEN 7140 ELSE 7150 
7140 X-IO : RETURN 

7150 Q1*="CH0IX INTERDIT, CH0ISISSE2 A NOUVEAU" 

7160 GOSUB 5000 
7170 GOTO 7100 

Figure A.7 : Sous-programme d'affichage de catalogue 


7400 

REM 

"ATTENTE" 


7401 

REM 



7402 

REM 

ATTENTE DE LA FRAPPE DUNE 

TOUCHE 

7403 

REM 



7404 

REM 

CE SS PROGRAMME ATTEND QUE 

L'UTILISATEUR 

7405 

REM 

FRAPPE UNE TOUCHE 


7406 

REM 

APPEL DES PARAMETRES : 


7407 

REM 

AUCUN 


7408 

REM 



7409 

REM 

PARAMETRES INTRODUITS EN REPONSE : 

7410 

REM 

AUCUN 


7411 

REM 



7412 

REM 


— 

7420 

Ql* 

-"POUR CONTINUER FRAPPER UNE TOUCHE" 

7430 

02* 

! Q3*= " " 


7435 

REM 

APPEL DIALOGUE 


7440 

GOSUB 5000 


7445 

REM 

ATTENTE DE LA FRAPPE D'UNE 

TOUCHE 

7450 

X*= 

INKEY* : 1F X*="" THEN 7450 


7460 

RETURN 



Figure A.8 : Sous-programme d'attente 









7B00 REM "OUI NON" 

7BOX REM 

7802 REM OUI — NON 

7B03 REM 

7804 REM APPEL DES PARAMETRES : 

7B05 REM AUCUN 

7806 REM 

7807 REM PARAMETRES INTRODUITS EN REPONSE : 

7808 REM NO*=OUI OU NON 

7809 REM 

7810 REM 

7820 REM ON ATTEND LA FRAPPE D'UNE TOUCHE 
7830 NO*=INKEY* : IF N0*=“" THEN 7830 
7360 IF N0*=“0" OR NOf="N” THEN 7890 

7870 REM SI REPONSE <> DE OUI OU NON NOUVEL ESSAI 

7380 GOTO 7830 

7890 PRINT NO* : RETURN 


Figure A.9 : Sous-programme oui/ non 



ANNEXE B 


COMMENT 
UTILISER LES 
SOUS-PROGRAMMES 

GÉNÉRAUX 


Les lecteurs qui désireraient s’initier à la programmation pourront 
essayer d’écrire leurs propres programmes. Ils économiseront beaucoup 
de temps et d’efforts en utilisant les sous-programmes généraux de ce 
livre comme parties de programmes. Cette annexe a pour but de les 
aider. Nous y examinerons les fonctions de quelques-uns des sous- 
programmes. Des programmes simples montreront comment les sous- 
programmes peuvent être utilisés. 
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ÉTABLISSEMENT DU CATALOGUE 

Le sous-programme catalogue débute à la ligne 4600. Ce sous- 
programme effectue l’affichage d’un catalogue sur l’écran et attend 
ensuite l’introduction d’un nombre. C’est en choisissant ce nombre et 
en le signifiant à l’ordinateur que vous sélectionnez le programme que 
vous voulez utiliser. 

Les Figures B. 1 et B. 2 montrent la liste du programme et l’affichage 
sur l’écran concernant un catalogue simple. Nous définissons le tableau 
X$(I) par l’ensemble des noms des programmes disponibles. La valeur 
de N correspond au nombre des programmes pouvant être sélectionnés. 
Le sous-programme affiche le nom des programmes et attend que 
l’utilisateur ait signifié son choix. Ce dernier est concrétisé au moyen 
d’une instruction GOSUB. 
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Annexe B 


REM 

Nt“"EXEMPLE DE CATALOGUE" 

REM 

REM PREPARATION 
GOSUB 6200 

REM DEFINITION DU CHAMP CATALOGUE 
X* ( l > =" PROGRAMME l" 

X*<2> “"PROGRAMME 2" 

X*(3> “"PROGRAMME 3" 

X* (4) “"PROGRAMME 4" 

Z“4 : GOSUB 7000 

ON X GOSUB 220,230,240,250 

END 

PRINT X*(l); " CHOISI" : RETURN 
PRINT X*(2>; " CHOISI" : RETURN 
PRINT X*<3); “ CHOISI" : RETURN 
PRINT X*<4>; “ CHOISI" : RETURN 


Figure B. I : Liste d'un programme 
permettant d'effectuer un choix à partir d'un catalogue 



PROGRAMME 1 
PROGRAMME 2 
PROGRAMME 3 
PROGRAMME 4 


Figure B.2 : Exemple d'affichage d'un catalogue permettant le choix 
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CHOISIR UN AUTRE PROGRAMME 

Tous les programmes de ce livre utilisent le sous-programme UNAU. Ce 
sous-programme demande à l’utilisateur s’il veut remettre en œuvre le 
programme précédemment utilisé. Trois lignes de données sont affi- 
chées. La première et la troisième sont fournies par le sous-program- 
me; vous aurez à écrire la seconde. 

Le sous-programme UNAU fournit la valeur O ou N à la variable N$. 
Le programme examine l’état de cette variable pour déterminer s’il lui 
faut de nouveau se remettre en action. 

Les Figures B. 3 et B. 4 donnent la liste du programme et l’affichage à 
l’écran correspondant. On voit comment ce programme type notifie la 
question METTRE EN ŒUVRE CE SOUS-PROGRAMME. 
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255 REM 

260 Nt» 11 UT I L ISAT I ON DU SS-PROGRAMME UNAU-" 

270 REM 

280 GOSUB 6200 

290 Q2*="METTRE EN OEUVRE CE SOUS PROGRAMME' 
295 REM UN AUTRE ? 

300 GOSUB 3400 

310 IF N0*="0" THEN 255 ELSE END 


Figure B. 3 : Exemple d'utilisation du sous-programme UNAU 


UTILISATION DU SS-PROGRAMME UNAU 


VOULEZ -VOUS 

MEITRE EN OEUVRE LE SOUS PROGRAMME 
DE NOUVEAU O OU N ?N 


Figure B.4 : Affichage à l'écran : Utilisation du sous-programme UNAU 
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SOUS-PKOGHAMMK l)E DIALOGUE 

Nous utiliserons le sous-programme DIALOGUE pour afficher trois 
lignes de texte au bas de l’écran. Il vous est ainsi possible de formuler 
trois questions différentes, ce qui est suffisant pour la plupart des 
programmes. Le plus souvent nous formulerons une instruction sur la 
première ligne et des questions sur la deuxième et la troisième. Ce 
sous-programme trace une ligne délimitant la zone d’affichage et 
supprime le texte affiché au cours de l’exercice qui a précédé. Les 
Figures B.5 et B. 6 donnent une liste du programme et l’affichage 
correspondant. 
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Annexe B 



320 REM 

330 N*® "UTILISAT ION DU SS-PROGRAMME DIALOG 

340 REM 

350 GOSUB 6200 
360 REM QUESTIONS 

370 Ql*-"VOICI LA PREMIERE QUESTION" 

375 REM QUESTION BLANCHE 
380 Q2*-"" 

370 Q3*="V0ICI LA DERNIERE QUESTION" 

395 REM SORTIE DES QUESTIONS 
400 GOSUB 5000 
410 END 


Figure B.5 : Exemple d'utilisation du sous-programme DIALOGUE 


UTILISATION DU SS-PROGRAMME DIALOG 


VOICI LA PREMIERE QUESTION 


VOICI LA DERNIERE QUESTION 


Figure B. 6 : Affichage à l'écran : 
Utilisation du sous-programme DIALOGUE 
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PROCRAMME D’INTRODUCTION DE DONNÉES 

Le sous-programme INTPAR effectue l’entrée des données pour la 
plupart des programmes de ce livre et peut facilement être utilisé pour 
créer des programmes additionnels. Vous ferez débuter le processus 
d’entrée des données par le vidage de l’écran effectué au moyen du 
sous-programme PREP et par la mise à la valeur 1 de l’index K. 
L’ordinateur est prêt pour l’introduction des paramètres du program- 
me. Pour chaque paramètre, faites Q3$ égal au nom du paramètre, puis 
appelez le sous-programme commençant à l’adresse 4400. Le sous- 
programme INTPAR demande l’entrée d’un paramètre au bas de 
l’écran. Le paramètre introduit apparaît alors en tête d’affichage. 
INTPAR met les paramètres en mémoire dans le tableau P(K) dans leur 
ordre d’entrée. Les Figures B.7 et B. 8 donnent la liste du programme et 
l’affichage correspondant à la mise en œuvre de ce sous-programme. 
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420 REM 

430 N*="£XEMPLE D'INTRODUCTION DE DONNEES" 

440 REM 

450 GOSUB 6200 : K=1 

460 REM DEFINITION DU CHAMP DIALOGUE 

470 01*=" INTRODUISEZ LES DONNEES" : 02 *="" 

475 REM PREMIERE OPERATION 

480 03#= "PR IX DE DETAIL" ! SOSUB 6600 

485 REM SECONDE OPERATION 

490 Q3*="REMISE (7.)" : GOSUB 6600 

500 PRINT : PRINT"PRIX = "(TAB(24) 

510 PRINT USING"#tMt!t##,.##";PAR<l)-PAR(2>/10O»PAR(l) 

520 END 


Figure B.7 : Exemple d'utilisation 
du sous-programme d'introduction des données 


EXEMPLE D'INTRODUCTION DE DONNEES 




PRIX DE DETAIL 
REMISE <7.) 


2400.00 

10.00 


2, 160.00 


-INTRODUISEZ LES DONNEES 


REMISE <X>? 10 


Figure B.8 : Affichage à l’écran : 
Utilisation du sous-programme d'introduction des données 
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